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I . INTRODUCTION 


Among the various ways of direct burning of coal, fluidized bed 

combustion appears to be the most attractive, both from an economic 

and environmental standpoint. By carrying out combustion in a 

fluidized bed combustor (FBC) operating at relatively low temperature 

(750°C-950°C; 1382°F-1742°F) , both S0„ and NO emissions can be 

2 x 

maintained at environmentally acceptable levels. In addition, the FBC 
is well suited for burning low grade, high sulfur coal. 

Fluidized bed combustion involves the burning of coal particles 
in a bed containing limestone/dolomite, additives and coal ash. Under 
normal operating conditions the coal particles constitute less than 4 
percent of the total solids in the bed. The limestone/dolomite is added 
to absorb the sulfur dioxide released from coal during combustion. Sulfur 
dioxide reacts with calcined limestone/ dolomite according to the following 
reaction: 

CaO + S0 2 + 1/2 0 2 *- CaS0 4 

NO emission is kept low due to low combustion temperature and by the 
NO reduction reaction with carbon present in the fluidized bed. The 
low temperature operation of the fluidized bed offers little, if any, 
clinker formation of the ash. The heat of combustion is removed by 
steam coils immersed in the bed. The steam coils also control the 
temperature of the bed with minimum hinderance to the solids mixing 
and circulation in the bed. The high heat transfer coefficients 

2 

between the bed material and the heat exchange surfaces [250 to 420 W/m 

2 

°K (45 to 75 Btu/hr ft °F) ] and the large heat generation rates 



[2.0. to 5.0 MW/m^ (0.193 to 0.483 x 10^Btu/hr ft^) ] in FBC result in a 
smaller boiler volume fox a given duty than the conventional pulverized 
coal burning boilers. 

Pressurized fluidized bed combustion is also being investigated 
because of its potential for power generation in gas turbines 
combined with conventional ste.am turbines,. In pressurized FBC f the 
combustion is carried out at elevated pressures, generally in .the 
range of .600 to 1000 IP a (6 to 1,0 atm ,abs,.).. The hot, high pressure 
flue gas is cleaned to remove the particulates .and expanded through a 
gas turbine to generate additional ^electricity. 

Although the 'FBC .offers several .advantages., it is not free from 
shortcomings,. Problem areas include -erosion of immersed heat-transfer 
coils, continuous feeding of .solids into the -bed, agglomeration of 
solids, formation of stagnant zones <on the distributor plate, carry- 
over of unburnt .char particles in the flue gas., high particulate 
emissions., and in the case ;of pressurized fluid bed ..combustor (P.EBC) , 
the difficulty in hot gas .clean-nip. The e-xtent of these problems has 
to be evaluated and resolved -before any large-scale commercialization 


is ventured. 
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II. LITERATURE REVIEW 

A considerable amount of investigation on the performance of 

fluidized bed ‘combustion system has been under way particularly in the 

■ 

U.S. and U.K. (Argonne National Laboratory (ANL) , Combustion Power 
Company (CPC), Pope, Evans and Robbins . (PER) ,, Westinghouse Research 
Laboratories (WRL)', Exxon Research and Engineering Conpany (ER§E) , 

O 

Morgantown Energy Technology Center (METC) , National Coal Board (NCB) , 
British' Coal Utilization Research Association (BCURA) . Most of the 
experimental tests have concentrated on feasibility evaluation of FBC. 

As a result of these studies, a considerable amount ,of pilot plant data 
related to FBC performance has become available- in recent years., 

A systematic, theoretical examination of -these data has. been initiated, 
only recently, and attempts are presently being made to develop theoretical 
models for predicting the performance of FBC under various operating 
conditions. A review of the modeling efforts in fluidized bed combustion 
has been presented b.y Caretto (1977) . The fundamental and engineering 
aspects of fluidized bed coal combustion have been discussed by Beer (1977) . 
Almost all of the, FBC models proposed to date are based on the two phase 
theory of fluidization (Davidson and Harrison (1963)). According to this 

f 

theory, the fluidized bed is assumed to consist of two phase, viz., a 
continuous, dense particulate phase (emulsion phase) and a discontinuous, 
lean gas phase (bubble phase) with exchange of gas between the bubble phase 
and the emulsion phase. The gas flow rate through the emulsion phase is 
assumed to be that corresponding to minimum fluidization, and, that in 
excess of the minimum fluidization velocity goes through the bubble phase 
in the form of bubbles. However, as pointed out by Horio and Wen (1977), 
Rowe (1978), Catipovic et al . (1978), this assumption may be an 
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oversimplification for particles smaller than 50‘ ym and larger than 
2000' ym. Experiments with, fine powders' (d^ < 50. ym) conducted: by Rowe, 
(1978;) show that the dense phase' voidage changes with gas ve,lo,city, and 
that as much as 30. percent of the gas flow.- may occur interstitial ly. 
Catipovic, et al. (1978) have pointed out Qualitatively the difference 
in the fluidization of larger particles. 

Avedesian and Davidson (1973) developed a combustion model based 
on the two phase theory. Their objective was to study the mechanism 
of combustion of carbon particles in a fluidized bed of ash particles 
at 1173°K. The combustion was assumed to be controlled by two 
diffusional resistances, namely: 

(i) -Interphase transfer of oxygen from bubbles of air 
to the surrounding ash particles. 

(ii) Diffusion of oxygen through the ash phase towards 
each burning carbon particle. 

Campbell and Davidson (1975) later modified the Avedesian and 
Davidson model to include the presence of carbon dioxide in the 
particulate phase and applied the model to predict the carbon particle 
size distribution in a continuously operated fluidized bed combustor. 

Baron, et al, (1977) proposed a model for the FBC based on the 
two phase theory for predicting the combustion efficiency and carbon 
concentration in the bed. In their model, they took into account 
the carbon loss due to elutriation and attrition of bed particles, 
employing the correlations developed by Merrick and Highley (1974) . 
Borghi, et al. (1977) have proposed a mathematical model for the 
combustion of coal particles in fluidized bed which takes into account 
the evolution and burning of volatiles in addition to the combustion of 
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residual char. Their conclusions indicate that (i). the devolatilization 
times for coal particles are commensurable with the solids mixing time 
and (ii) the homogeneous release of volatiles in the bed, as opposed to 
instantaneous devolatilization is close to reality. Gibbs (1975) 
derived a mechanistic model foT the combustion of coal in a fluidized 
bed capable of predicting the combustion efficiency, carbon hold-up 
and spatial distribution of oxygen in the bed.' The carbon loss due to 
elutriation, attrition and splashing of coal from bursting of bubbles 
on the bed surface was taken into account in the model formulation. The 
burning rate of coal was assumed to be' diffusion' controlled. The carbon 
loss predicted by the model was strongly dependent on the mean bubble 
diameter which is an adjustable parameter. 

Gordon and Amundson (1976) examined the influence of several 
operating variables on the steady state performance of a FBC. Based 
on the model calculations, they found that multiple steady state 
solutions exist in the typical range of operating variables. In 
particular, it was noted that one of the key factors in determining 
the state of the bed, as well as the multiplicity of the system was 
the gas interchange coefficient between the bubble phase and emulsion 
phase . 

Horio and Wen (1978) have proposed a model based on the population 
balance technique to calculate the char elutriation loss, particle size 
distribution in the bed and size distribution of the elutriated char. 

In the FBC models described so far, they have at least one of the 


following deficiencies: 
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(1) The bubble diameter was taken as a constant and an adjustable 
parameter. In reality, bubbles coalesce as they ascend 
through the bed. The bubble diameter changes with the 
height above the distributor. Bubble size is also affected 
by the immersed cooling coils. (Baron, et al. 1977; 

Gibbs, 1975). 

(2) Devolatilization of coal is not considered. (Horio and Wen, 
1978; Avedesian and Davidson, 1973; Campbell and Davidson, 

1975; Baron, et al. 1977; Gibbs, 1975; Gordon and Amundson, 

1976) . 

(3) The mechanism of carbon combustion was assumed to be 
diffusion controlled. This is true only for large particles 
at high temperatures. (Avedesian and Davidson, 1973; Campbell 
and Davidson, 1975; Borghi,_ et al . 1977; Baron, et al. 1977). 

(4) Solids mixing in the emulsion phase was assumed to be uniform. 
Hence the bed was assumed to be under isothermal conditions. 

This is not true because the experimental data show a 
non-uniform temperature profile across the bed. (Avedesian 
and Davidson, 1973; Borghi, et al. 1977; Baron, et al . 1977; 
Horio and Wen, 1977) . 

Bethell, et al . (1973) presented a model for sulfur dioxide retention 
by limestone in a fluidized bed combustor. Horio and Wen (1975) have 
also formulated a model for the removal of sulfur dioxide by limestone 
in a FBC. In their model, the hydrodynamics of the fluidizing gas is 
based on the bubble assemblage model developed by Kato and Wen (1975) . 

Chen and Saxena (1977) used a three phase bubbling bed model (bubble 
phase, cloud-wake phase and emulsion phase) for predicting the sulfur 
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retention efficiency in a FBC. The model predictions were compared with 
some experimental data. However, a limitation of the model is that it 
assumes isothermal conditions in the bed. The models described above for 
S0 2 absorption do not take into.. account the char and volatiles combustion 
in the bed. (Bethell, et al. 1973] Horio and IVen, 1975; Chen and Saxena, 
1977) . 

Recently, Horio, et al . (1977). presented a model for fluidized bed 
coal combustion that can estimate- the performance of a FBC under fuel 
rich operation and also predict the NO emissions from the combustor. 

This model does not deal with the NO release from volatiles and char 
during the combustion. Char particle temperature is assumed as a constant, 
100°C above the bed temperature^ ,Char particle temperature is actually 
dependent on the oxygen concentration and is different in the bubble 
and emulsion phases. Also, the ..char temperature affects the carbon 
concentration in the bed which in turn affects the NO x reduction rate . 
Perira and Beer (1978) have proposed a mechanism for the formation of NO 
(nitric oxide) from fuel nitrogen'" and the subsequent reduction of NO by 
volatiles. However, they have not dealt with the reduction of NO by 
char subsequent to the completion of devolatilization in the bed which 
has been established by other workers (Oguma, et al . , 1977) . 

A general methematical model for FBC has been developed (Rengar?/j an . 
et al . 1977, Raj an, et al . 1978) employing the modified version of the 
bubble assemblage model (Kato and Wen, 1969, Mori and Wen, 1975) . The 
model includes the devolatilization of coal, char combustion and SO 2 
absorption. Predictions of the combustion efficiency, axial temperature 
profile and sulfur retention efficiency in the bed were compared with 
experimental data. A deficiency of the model is that the elutriation of 



char and limestone is not considered. Experimental values are i us.ed, for 
elutriation losses in the calculation. 

All of the models proposed so far do. not take into, accoimt the 
char combustion, S.0 ? absorption and NO reduction in the freeboard, 
which may be substantial. A classification of the fluidized bed 
combustion models discussed above is presented in Table I . 



TABLE 1. CLASSIFICATION OF FBC MODELS 


Model 

Description 

Two phase 
bubbling 
bed model 


Two phase 
compartment 
in series 
model 


Three phase 
bubbling bed 
model 


Gas Flow Pattern 


Bubble 

Investigators Phase 


Emulsion Solids mixing 

P hase in the bed 


Remarks 


Avedesian and 
Davidson (1973) 
Gibbs (1975) 
Campbell and 
Davidson (1975) 
Gordon and 
Amundson (19 76) 
Baron, et al . 

(1977) 


a) Plug Flow Plug Flow Complete Mixing 

b) Plug Flow Complete 

Mixing 


c) Complete Complete 

Mixing Mixing 


Horio,et al. 

(1977) 
Rengaraj an, 
et al . (1977) 
Horio and Wen 


(1978) 

Rajan,et al . 
(1978) ’ 


Complete 
mixing 
within 
each com- 
partment 


Complete 
mixing 
within 
e ach com- 
p art men t 


Complete mixing 
within each 
compartment 
with backflow 
of solids from 
one compartment 
to another 


Chen and Saxena Plug Flow Plug Flow Complete mixing 
(1977) 


1) Bubble diameter is assumed 
to be uniform throughout 
the bed in most cases and 
is an adjustable parameter 

2) Cloud and wake are combined 
in the emulsion phase. 

3) No reactions in the bubble 
phase . 

4) Char combustion is assumed 
to be diffusion controlled 
at all temperatures . 

1) Bubbles grow along the bed 
height . 

2) The backflow solid mixing is 
considered using an adjustable 
parameter. 

3) Cloud is combined with the 
bubble phase. 

4) Reactions take place in the 
bubble phase. 

1) Cloud-wake is treated as a 

separate phase and is in 
plug flow * 

2) Isothermal condition through- 
out the bed for solids, char 
and gas . 

3) Bubble growth is considered. 

4) Combustion occurs in cloud- wake 
and emulsion phases only. 
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III. OBJECTIVES OF PRESENT WORK 

Most of the modeling work performed to date has concentrated on a 
few specific aspects of the fluid bed combustion process-. The many 
deficiencies of the previous work have been pointed out earlier. It is 
the aim of the present work to reduce these deficiencies, and to 
formulate a comprehensive FBC model taking into account the following 
elements which were either partially considered or not considered at 
all in the previous work. 

(1) Devolatilization of coal and the subsequent combustion 
'of volatiles and residual char. 

(2) Sulfur dioxide capture by limestone. 

(3J NO release and reduction of NO by char. 

(4) Attrition and elutriation of char and limestone * 

(5) Bubble hydrodynamics . 

(6) Solids mixing. 

( 7 ) Heat transfer between gas and solid, and solids 
and heat exchange surfaces. 

(8) Freeboard reactions. 

This model will be able' to simulate most of the important performance 
characteristics, viz., 

(!)■ Combustion efficiency of coaT. 

(2)' Sulfur- dioxide retention efficiency .- 

£3} SO 2 and NQ x emissions-., 

(4) Particulates emission., 

(5) Attrition and elutriation: of. char and limestone.- 

(6-)‘ Size distribution of char and- limestone- iri the bed 

and* in the elutriated material.- 



11 


(7) Axial bed temperature profile. 

(8) 0 2 , CO, C0 2 , S0 2 and N0 x concentration profiles. 

(9) Pressure drop across the distributor and the bed. 

The present work will aid in the understanding of the performance of 
FBC under a range of operating conditions. For example, S0 ? , NO and 
particulates emissions from the FBC can be estimated for a range of 
operating conditions. The optimum operating temperature and gas residence 
time in the bed, which would give maximum combustion efficiency and lower 
S0 2 and N0 X emissions, can be estimated. The temperature profile 
simulated based on the model wild help identify the proper location of 
cooling coils in the bed to avoid steep temperature gradients' for design 
of coils configuration and packing density. 

The uniqueness of the proposed model is its capability to account 
for (i) the freeboard reactions which may be substantial; (ii) the 
solids mixing within the bed; (iii) the devolatilization of coal; 

(iv) S0„ and NO release during the combustion of char and volatiles 

Zm X 

and the simultaneous absorption of S0 2 by limestone and reduction of 
N0 x by char, and (v) the entrainment of char and limestone from the bed. 



12 


IV. MODEL ASSUMPTIONS 

The following assumptions are made in constructing the PBC model: 

1. Single phase backflow cell model is used for solids mixing 
calculation. 

2. Two ''phase bubble assemblage, model is adopted for gas phase 
material balances. 

3. Solids exchange between the bubble phase and emulsion phase 
is assumed to be rapid. 

4. Bubble size is a function of bed diameter and height above 
the distributor. When cool;in,g tube.s are present, bubble size in the 
tubes region .of the bed. is based on. ttye horizontal pitch distance 
between the tubes . 

5. Bubbles and clouds are, both- combined into, the bubble phase. 
The gas interchange coefficient between- the. bubble and emulsion: phases 
is a function of the bubble size and, is distributed axially.. 

6 . The gas flow, rate through; the. emulsion phase corresponds to. 
minimum fluidization velocity. 

7. Devolatilization of coal is. neither instantaneous nor uniform 
in the bed. It is assumed that volatiles re_le.ase rate is proportional 
to the solids mixing rate-. 

8. Volatiles are assumed-to b.e. released in the emulsion, phase. 

9. Volatile nitrogen and, sulfur in coal, increase as a function 
of bed temperature. (Fine, et al. 1974) . 

10. Sulfur and nitrogen in the residual char are assumed to be 
released as SO- and NO during the combustion of char. 

Z Jv 
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V. MODEL BACKGROUND 

The various physico-chemical processes occurring in the FBC are 
shown in Fig. 1. The basic elements of the overall combustion process 
are described as follows: 

1. Devolatilization and Combustion of Char: 

= t*> 

Coal particle fed to the hot combustor is rapidly heated while 
undergoing devolatilization (or pyrolysis) . The volatile matter of 
coal is evolved into the particulate phase or emulsion phase of the 
bed. The bed temperature and the proximate volatile matter content 
of coal determine the yield of volatiles. Volatile yield is estimated 
by the following- empirical, correlations (Gregory and .Littlejohn-, 1965) : 
V = VM - A - B (V.l)' 

A = exp (26 .41 - 3.961 In t + 0.0115 VM) (V.2) 

B = 0 . 2 (VM - 10.9) \ tV * 3) 

where V = yield of volatiles, % of coal, daf 

'i 

VM = proximate volatile matter in coal, daf % 
t = devolatilization temperature, °C 
The compositions -of the products of devolatilization in weight 

t 

fractions are estimated from the correlations developed using the data 


of Loison and Chauvin (1964) : 

CH . = 0.201 - 0.469 X + 0.241 X?, (V.4) 

4 VM VM 

H 2 - 0.157 - 0.868 + 1.388 (V.5) 

C0 2 = 0.135 - 0.900 Xy M + 1.906 

CO = 0.428 - 2.653 -4.845 ( V - 7 ) 

H 2 0 = 0.409 - 2.389 X^ + 4.554 ‘ (V.8) 

Tar =-0.325 + 7.279 - 12.880 X^ (V.9) 
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Fig.x Schematic Illustration of the FBC 
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Volatile nitrogen released during devolatilization is expressed as 
(Fine, et al. 1974): 

Vj^j = 0.001 T -0.6 gm/gm coal, (d,b.) (V.10) 

and volatile sulfur is expressed as: 

Vg= 0.001T - 0.6 gm/gm coal (d.b.) (V.ll) 

Despite the extensive research in the area of coal devolatilization, 
accurate rate expressions describing the rate of devolatilization of coal 
~re unavailable to date. However, it is estimated that the time needed 
for the devolatilization of a 1 mm coal particle is 0.5-1 sec tinder the 
conditions existing in the FBC (Beer, 1977). Solids mixing time for a 2 ft . 


combustor with a bed height of 4 ft. and a superficial gas velocity of 4 ft/ 
sec lies in the range of 2 to 10 secs depending on whether solids mixing 
is good or poor. Hence it is more likely that a major portion of the 
volatiles will be released near the coal feed point. In the model, f , 
the solid mixing coefficient will represent the amount of volatiles 
released uniformly and (1-f ) will represent the proportion of volatiles 
released near the coal feed point. 

At temperatures above 650 °C and in an oxidizing atmosphere the rate 
of burning of volatiles is fast compared to the time required for volatiles 
evolution. However, the combustion of volatiles released in the emulsion 
phase is controlled by the availability of oxygen in the emulsion phase. 
Since the oxygen concentration in the emulsion phase is low, the volatile 
gases in the emulsion phase first tend to form CO by partial combustion: 
whereas, the volatiles exchanged to the bubble phase burns completely to 


C0 2 because of excess oxygen present in the bubble phase. 


The rate of burning of CO is expressed as (Hottel,et al 1^65) 


C0 + f °2 


C0 2 , r = 3xl0 l0 (j^“) 1 ' 8 exp(-1600C/RT)Y^ ^ 


g 

r ^.5 Y n 

CO 1+24 . 7 Y, 


gmole/ -m. sec 
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Residual char bums according to the reaction : 

C+ l°2 O - f)00 ♦ (f - 1)C0 2 (V.13) 

where <J> is a mechanism factor, which takes the value 1 when C0 2 is 
transported away from the char particle and 2 when CO is transported 
away (Field, et al . 1967) during char combustion. The factor, <j>, is a 
function of char particle diameter and temperature. For small particles, 
CO formed during char combustion diffuses out fast because of rapid mass 
transfer and burns to form C0 2 outside the particle; whereas, for large 
particles, because of slower mass transfer, CO bums within the particle 


and C0 2 is transported out, <J> is expressed as: 



for d c 0.005 cm 


(V . 14) 



(V.20) 
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TEMP/C 


1727 1394 1156 977 838 727 636 



Fig. 2 Rate Controlling Regimes in FBC 
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For smaller particles, diffusion of oxygen to the surface of the char 
particle is faster than the chemical reaction rate of combustion while 
for larger particles, diffusion of oxygen is slower than the chemical 
rate.' Thus, the diffusional term tends to dominate for larger particles 
at high temperatures, while the chemical term tends to dominate at low 
temperatures (Fig. 2). C0 2 formed during combustion reacts with 

char according to the following reaction: 


C + CO, 


2 CO 


(V.21) 


and the rate expression for the above reaction is r^ = tt k 


8 


c X0 2 CC 2 


gmole/sec . particle, where = 4.1 x 10 exp(-59200/RT) cm/sec 

(Caram and Amundson, 1977) . 

2. Sulfur Dioxide - Limestone Reaction : 

When limestone is added to a fluidized bed burning coal, the S0 2 
released from the combustion of coal reacts with calcined limestone 


according to the reaction: 


CaO + S0 2 + 0 2 


CaSO, 


(V. 22) 


The reaction rate of a limestone particle can be expressed as 
(Borgtvardt, 1970) 

= \ d \ k v£ C S0 gJ®°le/sec particle (V.23) 

2 

where k „ is' the overall volumetric reaction rate constant and is a- 
vx. 

rapidly decreasing function of limestone conversion, f^. The' overall 
reaction rate constant, k is calculated by the equation: 

■ 4 S g ** < V ' 24 > 

^ 3 

where k . is equal to 490‘ exp ('■17S00/RT)' gm/ cm sec. The value of 
v£ 

activation energy was obtained by Wen and Ishida (1973) . By using 
Borgwardt’s data (1971), the specific surface area, S , is correlated 
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with calcination temperature as: 

s g = - 38 * 4 T + 5.6 x 10 4 , cm 2 / gin for T 1253°K (V.25) 

* 35.9 T - 3.67 x 10 4 , cm 2 /gm for T < 1253°K (V.26) 

, the reactivity of limestone, is a function of conversion, temperature 
and particle size. CaSO^ formed due to the sulfation of calcined lime- 
stone tends to block the pores formed during limestone calcination, building 
an impervious layer on the particle surface, thus reducing the reactivity 

i 

of limestone. The reactivity of limestone is calculated using the 
grain model developed by Ishida and Wen (1971) . Typical profiles of 
limestone reactivity as a function of conversion for various particle 
sizes are shown in Fig. 3. 

3. NO y -Char Reaction : 

Nitrogen oxides are generated during the combustion of volatiles 
and char, and are subsequently reduced to N 2 by reaction with nitrogeneous 
fragments (containing NH^) in the volatiles and also by the hetero- 
geneous reaction with char. Fuel nitrogen compounds in the. volatiles 
would be in the form of NH^. -When the volatiles burn, NH^ is oxidized to 
NO. When the residual char burns, nitrogeneous fragments of the char 
are also oxidized to NO. The released nitrogen oxides are reduced by 
char according to the reaction 

C + 2 NO CO^ + N 2 (V .27) 

The rate expression for NO reduction is 
2 

r N0 = * d c k N0 C N0 2111016 NO/ sec-particle (V.28) 

7 

where k^ = 5.24 x 10 exp(-34000/RT m ) cm/sec (Oguma, et al, 1977, 


Horio, et al . 1977). 



LIMESTONE REACTIVITY , 







21 


' 4. Attrition and Entrainment of Char and Limestone: 

Limestone and char particles in the bed' are subjected to erosion 
and attrition due to the rapid mixing of the solids. The attrition rate 
is proportional to the rate of energy input. Hie size distribution of 
the fines produced has been found to ‘be approximately constant for a 
particular bed material and independent of the bed size distribution 

t * 

or operating conditions (Merrick and Highley, 1974) . The rate of 
energy input to the particles is taken -to - be' proportional to (b Q - U m£ ) 
and also to the bed weight. The rate of production of fines is 
correlated as : 

R a = KfU o " U mf )M b ' • •\'(V.2! 9) 

The value of K is dependent on the friability of the material. The 

* * “8 _ O 

values of K lie in the range 9.11 x 10 for ash and 2.73 x 10 for 
limestone. y.‘ - -'»/•. 

. o . i * , i 

The rate of elutriation of, char and limestone for a size fraction 

x, from a fluidized bed is directly proportional to their concentration 

in the bed, that is: - 

R = E b gms/sec ' (V.30) 

where R is the elutriation rate of- the close size fraction x , for a 
x , _ 

given operating conditions, b^ is the weight fraction of the ‘close 
size fraction in the bed. There are many correlations proposed to 
calculate the elutriation rate constant, E x . Many of the correlations 
exhibit an improper qualitative behavior in the smaller particle size 
ranges. A recent correlation proposed by Merrick and Highley (1974) 

i ' 

accounts properly for the boundary conditions of a maximum limiting 
elutriation rate constant at zero particle size and the rate constant 
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approaching zero with increasing particle size and at U q = U It is 
of the form; 

U 0.5 U n. n? r 

E x = G exp [-10.4 [•“)' C m :-„ ■■ ) ! gni/sec (V.31) 

o o mf 

The above correlation was obtained by Merrick and Highley with data 
from NCB combustor in which the freeboard height was around 275 cms. 

When this correlation is used to. simulate the performance of NCB combustor, 
the results agree well with data (Fig. 10). This correlation do.es not 
take into account the effect of varying freeboard heights and hence cannot 
be used to calculate the entrainment rate along the freeboard height. In 
view of the fact that the entrainment below TDH is dependent on the free- 
board' height, the following correction is. suggested to calculate the 
entrainment rate as a function o.f height above the bed surface. The 
rate of entrainment is given by: 


R 


F 0,x ex Pt 


275.0 


’ In (■ 


E b 
x x 


-)> gms/sec 


(V. 32) 


0,x 


where F_ is the entrainment rate of particles of x th size fraction -at 
the bed; surface, h is the height abo.ye- the bed surface in cms, and the 
constant 275.0 represents the freeboard height of the NCB combustor based 1 
on which Merrick and Highley 1 s correlation is developed. 

When the bubbles burst at the: surface of the bed, solids in the wake 
of the bubbles are thrown into, the, freeboard. The amount of solids 
splashed into the freeboard can he. calculated from the equation (Yates 
and Rowe, 1977) . 

F 0, - A t -< u c - <WW« ei - s b£ ), P . - f sB CgWsec). CV. 33) 

where f is, the wake fraction and f is the' fraction of solids in the wake 
w sw 

thrown into* the freeboard. TDH' represents, the height (above the bed 
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surface) above which the entrained solids density is independent of the 
height. There are many correlations available in literature to calculate 
the TDH (Zenz and Weil, 1958; Ami tin, et al. 1968; Nazemi, et al. 1973; 
Fournol, et al. 1973). The correlation proposed by Amitin, et al . (1968) 
is used here because of its simplicity and accuracy in the range of 
fluidizing velocities encountered in the combustor. 


TDH = 0.429 U 1,2 (11.43 - 1.2 In U Q ) cms (V.34) 

TDH is compared with the actual height (height between the bed surface 
and the flue gas exit) . If the TDH is smaller than the actual freeboard 
height, then TDH is used to calculate the solids elutriation rate. 
Entrainment rate of solids as a function of the height' above the bed 
surface is calculated using Equation (V.32) . . 

5 . Bubble Hydrodynamics : 

A modified version of the bubble assemblage model (Rengarajan, 
et al. 1977) is used to describe the bubble hydrodynamics. Fig. 4 is a 
schematic representation of the gas phase model. Gas flow rate in the 
emulsion phase is assumed to be that at minimum fluidization velocity. 
The minimum fluidization velocity is calculated using Wen and Yu's 
(1966) correlation: 


U 


mf 


= ( t j t -) { £ 33 - 72 + 
p s 


0.0408 d 


P (P 


^2 


P 2 ] l/2 


- 33.7} (V. 35) 


Estimation of the bubble diameter along the bed height is one of the 
most critical factors in 'FBC modeling. For a non- cylindrical bed. 


the bubble size, D n , is calculated from (Mori and Wen, 1975): 

D 


dDj 

dz 


0.3 

D. 


£ D BM " V 


(V .36 ) 


I.C. D^ = at z = O, D„_ = initial bubble diameter where D m , is the 
B BO B0 BM 
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BUBBLE -CLOUD 
PHASE 

f 


EMULSION 

PHASE 




compartment 


m 


I 


3 


2 


Fig . 4 Schematic I Hag strati ora og the 

Gas Phase Model 
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fictitious maximum bubble diameter 'defined by Mori and Wen (1975) as: 


D = 0.652 [A (U -U,)] 1 
BM L t o mf J 


(V.37) 


When cooling tubes are present, -.the ascending bubbles impinge on the 
tubes . If the tubes are packed closely, depending on the horizontal 
pitch distance and tube diameter, bubbles may 'be broken, and coalescence 
may not occur. For lack of experimental evidence on the bubble sizes 
in the presence of internals of various designs, it is assumed here 
that if the impinging bubbles are of smaller size than the horizontal 
pitch distance, the bubbles coalesce, as if tubes were absent. If the 
approaching bubble is bigger than the horizontal pitch distance, it is 
assumed that coalescence does no/t occur and hence the bubble size in the 
coils section of the bed is set equal to the pitch distance. 

Bubble velocity is calculated from the following relation (Davidson and 


Harrison, 1963): 


U B = U o ~ U m£ + °- 7U 


(V.38) 


The gas interchange coefficient -between the bubble phase and emulsion 


phase is estimated from (Kobayashi, et al. 1967) 

K BE “ n ’°/ D B 
6. Solids Mixing: 


(V.39 ) 


The mixing of solids is caused by the motion of bubbles and their 
wakes . Both bulk circulation and turbulent mixing of solids are- the 
effects of bubbling phenomena of the bed. The bulk circulation rate, 
^mix' causec * k y the lifting of particles by bubble wakes is expressed 


^ - U mP A t ** ^ -• E ^P 


mf J f s 


(V.40 ) 


where f is the ratio of wake volume to the bubble volume including 
w 
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the wake. The estimation of f for FBC has not been clearly established 

w 

yet. Therefore, f is the parameter in the model which requires further 
investigations . A schematic representation of the solids mixing pattern 
and the backflow cell model used to describe the solids circulation in 


the bed are shown in Fig. 5 and Fig. 6. The bed is divided into 
compartments of size equal to bubble diameter at that height. 

7. Heat Transfer : 

In calculating the reaction rate for char combustion, the temperature 
of char particle, T c? is calculated separately, using a heat balance 
around the char particle and the surrounding gas as: 


q /(nd 
n chax c 


where e is the emissivity of the char particle (taken as 1.0 Field, 
et al., 1967), A is the thermal conductivity of the surrounding gas 
and a is the Stefan-Boltzman constant. The heat generated during 
combus.tion is removed by immersed cooling coils in the bed. Water is 
the cooling medium. Bed to cooling tubes heat transfer coefficient 
used in the model is selected from experimental data and is in the 
range of 0.0054 to 0.011 cals/sec. cm 2 . °C (40 to 80 Btu/hr .ft 2 . °F) . Cor- 
relations of bed-wall heat transfer coefficient are also available for 


.the estimation (Wender and Cooper, 1958; Wen and Leva, 1956). 

8. Freeboard Reactions : 

Char combustion, S0 2 absorption and NQ X reduction reactions take 
place in the freeboard. Heat generated by combustion and heat carried 
by the flue gases are removed by the cooling coils present in the 
freeboard. The hydrodynamics in the freeboard is different from that 
in the bed. There are no bubbles present in the freeboard. Any 
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Fig. 5 Two Modes o£ Solids Mixing 
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X : wt. fraction carbon 

T : temperature 

w mix : solids mixing rate 

w ne t : net flow rate of solids 

Fig. 6 Schematic Illustration of the 


Solid Phase Model 
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unburnt volatiles from the bed would be burnt in the freeboard. 

The freeboard region is divided into a number of compartments of 
equal size. To estimate the compartment size in the freeboard region, 
Peclet number is calculated using the Reynolds number in the freeboard 
region by the following correlation (Wen and Fan, 1974) 


N Re ■ 

D U p J\1 
t o K g' H g 




( V . 4 2) 

N Pe = 

U D /E 
o t Z 




(V . 43) 
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U /D p 
g g 




(V .44) 
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Knowing the axial dispersion coefficient, E , the average compart- 
ment size in the freeboard is calculated as: 

AZ = 2 E /U (V. 47) 

z o 

The concentrations of gaseous” species vary with each compartment although 
the concentrations are uniform (completely mixed) within .each compartment. 
Knowing the average height of -each compartment above the bed surface, 
the solids- entrainment rate at that height is calculated. Residence time 
of solids in each compartment is given by AZ/(Uq - U^) where AZ is the 
compartment size. Solids hold-up in each compartment is then obtained 
from 

Solids hold-up in _ (up war d+ downward) flow rate of ry ^g-, 

each compartment solids x residence time of solids ^ 

in that compartment 

» V , 

Depending on the residence time of particles in the freeboard, and the 
char particles burning time, char particles will either be partially 
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or completely burnt, and the partially burnt char particles are elutriated. 
The burning time of a char particle is estimated from the equation 
(Field,- et al . 1967) : 


t 


b 


= burning time of a char particle 
= p c,ch R g T m d c 2 /f 96 + D 


(V. 49) 
(V.50) 
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VI. MODEL DESCRIPTION 
1 . Elutriation Calculations : 

A mathematical model has been developed for elutriation in a 
fluid bed system with size reduction and recycle to the bed of some 
or all of the fines from the primary and/or secondary cyclones. The 
model takes into account the variation in the rates of elutriation 


and size reduction with particle size. If the size reduction is due 
to more than one process, then there will be a separate value of size 
reduction constant for each process. In general, the rates of size 
reduction by the separate processes in each size fraction are additive. 
A mass balance is performed for each size fraction, x, as follows: 


f,x 

(feed rate) 


M x W D /M b 


w 


x— 1 


a k M 
xxx 


(gain of particles (gain of fines produced 
from next largest by abrasion) 
size due to size 
reduction) 


R x 


R x ^x^-lllP 

Cl-p,) 


(withdrawal rate 
from the bed) 


(particles captured 
by primary cyclone 
but not recycled) 


+ R x U-q lx Kl-q 2x ) 
(particulate emission) 


+ k M 
x x 


(particles captured 
by secondary cyclone 
but not recycled) 


(loss of weight due to 
production of fines by 
abrasion or to chemical 
reaction) 


W 


(loss of particles to next smallest 
size due to size reduction) 


(VI. 1) 
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The rate of loss of particles to the next smallest size,, W^, is 
determined by considering a mass of particles M , at size, d , and 

X ' X ' 

calculating the mass remaining after the size has been reduced 

to d The rate of reduction- is written as: 


Sf = -k MCU - U‘ J 
dw -x' o mf 


The rate of size reduction between d and d , is: 

x x +1 

dd Y v 

-TS ~ = d (U - U J 
d0 3 x 1 - o mf 

Dividing equation (VI. 2) by equation (VT.3) gives: 

dM _ 3M 
dd x = d x 

and integrating between d v and d T gives:- 

. , d x+i , 3 

M l d J 
x x 


(VI. 2) 


(VI. 3) 


(VI .4), 


(VI. 5.) 


This fraction is the proportion of the total feed' to- the, xth size 
fraction which is reduced in diameter to (x+l),th size fraction. 

d i 7 

Therefore, W = [WL + a K(U - U: ,)M, + W ( * ) . (VI .6) 

x L f,x x o mf o x-l J d x 

For the coarsest size fraction, W is zero., 
i x- j,* 

The entire calculation is iterative, starting from initial 
guesses of the. withdrawal rate of solids- from the bed and the size 
distribution of particles in the bed.. Mass balance- is performed on 
each successive close size- fraction, starting froim the coarsest.. The- 
bed weight in each, size fraction and' hence the total bed weight and 
bed- size distribution is calculated!,. The procedure, is repeated' till 
the calculated bed, weight equals the given Bed- weight. .The elutriation 
rate, fines coll ection/re cycle. rates,, particle; emission- and size 
distribution of elutriated': particles-, are.- then calculated. 
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2 . Material and Energy Balances: 

Material balances are made for volatile gases, CO, C0 2 , oxygen, 

S0 2 and NO in the bubble and emulsion phases within the bed and in the 
freeboard. Depending on the concentration of oxygen in the emulsion 
phase, different material balances are used as shown below. 

Case A : Volatiles concentration in the emulsion phase is not zero 

because of insufficient oxygen in emulsion phase for complete combustion 
of volatiles. Char and CO combustion do not proceed in the emulsion 
phase . 


EMULSION PHASE EQUATIONS 


Oxygen : 


Y„ . = 0.0 

E,i 


(VI. 7) 


Volatiles : 


F Y 
EM,i E,v,i 


F EM,i-l Y E,v,i-l ' a i Y E,v.,i-l 


(Volatiles out) (Volatiles in) (Volatiles Exchanged to 

Bubble Phase) 


^ F EM,i-l Y E,i-l + a l Y B,f* 


+ R . 
v,i 


(VI . 8) 


(Volatiles Burnt) 


(Volatiles Released during 
Devolatilization) 


where aj = K A % AZ e jj-y , gmole/sec 

g 1 


(VI. 9) 


Csrbon monoxide: 


F EM,i Y E,C0,i F EM, i - 1 Y E,CO,i-I a l Y E,C0,x 


(CO out) 


(CO in) 


(CO Exchanged to 
Bubble Phase) 
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CFp-vf * , Y_ . + a, Y d . )■ 

\EM,'i-l E,i-1 1 B,i' 


0 , 


V + R 
V C0 K CO,i 


.(CO Produced by Volatiles 
Burning) 


(CO Released during 
Devolatilization) 


+ 2 a 4 Y E,C0 2 ,i 


(VI. 10) 


(CO Produced by C-C0 2 Reaction} 
where 

a 4 ■ C1_e c,i - E tri>e,l» k C0 rbr V’ (VI. 11) 

2,1 g E,1 


6 ^-\f> 

& “ T 


m d p . C -u 
c 'ch ch 


(VI. 12) 


Carbon dioxide; 


F EM,i Y E,C0 2 ,i " F EM,i-l Y E,C0 2 i _ 1 ~ a l^ Y E,C0 2 ,i " Y B,C0 2> i^ ‘ 


(C0 2 out) 


(C0 2 in) 


(C0 2 Exchanged to 1 
Bubble Phase) 


+ R 


co 2 ,i 


a 4 Y E,C0 2 ,i 


(C0 2 Released during (C0 2 Consumed by 
Devolatilization) C-CO- Reaction) 


BUBBLE PHASE EQUATIONS 


Oxygen : 


(VI. 13) 


F - Y 
r BM, i B,i 


F Y- 

BM,i-l B, i-1 


a l Y B,i 


(Oxygen out) 


(Oxygen in) 


(Oxygen Exhcanged to 
Emulsion Phase) 
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‘ a 2 Y B,i 


a l Y E,CO,i 


a, Y„ . X „ (VI. 14) 

1 E,?,i °2 >c 


(Oxygen Consumed (Oxygen Consumed by (Oxygen .Consumed by 
by Char) • CO Exchanged to Volatiles Exchanged 

• Bubble Phase) to Bubble Phase) 


where 


a„ = a A. . AZ. (e 
2 m t,i c,i 




B, i cB,i R g T Bj . x 


(VI. 15) 


Carbon dioxide: 


, F BM, i Y B,C0 2 ,i 


F BM, i-1 Y B,C0 2 ,i-l" a l tY B,C0 2 ,i “ Y E,C0 2i i- ) 


(C0 2 out) 


(C0 2 in) 


(C0 2 Exchanged to 
Emulsion Phase) 


+ *2 Y B,i 


+ a Y„ . 

1 -E y CO y 1 


+ a i Y E,v,i v co^ CVI.16) 


(C0 2 Produced by (C0 2 Produced (C0 2 ^ ro ^ uce< ^ 

Char Combustion) by CO Combustion) Volatiles Burning) 


FREEBOARD EQUATIONS 


Oxygen : 


Y n . = 0.0 

0,i 


(VI. 17) 
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Volatiles : , 

F MT Y v,i = F MT Y v,i-1 ~ F MT Y 0,i-1 /X 0 2 

l 

(Volatiles out) (Volatiles in) (Volatiles Burnt), 
Carbon monoxide : 

FY =PY + p a i v 

MT CO,i MT C0,i-1 4 C0 2 ,i 

(CO out) (CO in) (CO Produced by 

C-CO^ Reaction) 


+ - y v4 )v co 


(CO Produced by Volatiles Burning) 


where a* = 


R T a • 
S 


N cJ d ce,ico 2 ,i* emole/sec 


Carbon dioxide: 


F MT Y m . F MT Y C0 o ,i-l ' a 4 Y COo,i 

. 2,1 2 - 2 ’ 

(C0~ out) (CO, in) • (CO, Consumed by 

z z C“C0 2 Reaction) 

* Case B : Sufficient oxygen is present in the emulsion phase 

combustion of volatiles. 


Volatiles : 


EMULSION PHASE EQUATIONS 


Y 


F 


0.0 


Oxygen : 


F Y 
EM,i E,i 


F EM,i-l Y E,i-l " a l CY E,i " Vi 5 


(VI .18), 


(VI . 19) 


(VI. 20) 


(VI. 21) 


for the 


(VI. 22) 


(Oxygen out) 


(Oxygen in) 


(Oxygen Exchanged to 
Bubble Phase) 
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a 3 , i/ , i " tF 


HM,i-l Y E , v,i-I + R v,i )X 0, 


(Oxygen consumed (Oxygen Consumed by Volatiles 
by Char) Burning) . 


k Y 


, 0 


17.5 Y c . 


E , CO , i V 1 + 24-7 Y_ . 

E,i 

(Oxygen Consumed by CO) 


-3/2.0 


(VI. 23) 


where 


k = 3 x 10 exp(-16000/RT )(-^ F ) 1 ' 8 Y 0 x A AZ. (i- £ .- £+ . .)e , 

Vi H 2° t,x 1 C>1 tub®* 1 mf 

1 gmole/sec (VI. 24) 


a x = a m K A (1-e 


m “t,i “i ° Cj i“ & tube,i 3k cE,i R T. 


X. 


'g E,i 


(VI. 25) 


Carbon monoxide: 


17,5 Y E i 

F EM,i Y E,C0 } i “ F EM,i-l Y E,C0,i-i “ k Y E,CO,i ^1+24*7 Y J . ^ 

E ,i 


(CO out) 

+ (F r „ , , Y 


(CO in) 


EM,i-l ^v, i-1 + R v,i 5V CO' + 


(CO Burnt) 
R CO,i 


(CO Produced by Volatiles Burning) .(CO Released during 

Devolatilization) 


+ 2 a 4 Y E,C0 9 ,i 


(CO Produced by 
C-C0 ? Reaction) 


+ ' ■ V 2 ~ ^ Y E,i 


(VI, 26) 


K E,i 

(CO Produced by 
Char Combustion) 


Carbon dioxide: 


EM,i r - ,C02>i EM,i-l EjCO^ji-l a l^ Y E,C02,i Y B,C02*i^ 


(C0 9 out) 


(C0 2 in) 


(CO„ Exchanged to 
Bubble Phase) 
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17.5 Y . 

+ !<■ V ( + R 

E,C0,i l lH-24-7 Y e ' C°2 ,:L 


(C0 2 Produced by 
CO Combustion) 


CC0 2 Released during 
Devolatilization) 


a 4 Y E,C0 2 ,i 


a-0 


3 ^. 


- 1)Y, 


E,i 


B,i 


(VI .27) 


(C0 2 Consumed by 
C-CO2 Reaction) 


(C0 2 Produced by 
Char Combustion) 

BUBBLE PHASE EQUATIONS 


Oxygen : 


f Y 
* BM, i l B,x 


F Y 

r BM, i-1 B,i-1 


a l CY B,i ~ Y E,P 


(Oxygen out) 


(Oxygen in) 


(Oxygen Exchanged to 
Emulsion Phase) 


a„ Y . 

2 B,i 


a l ^EjCO,!^ 2 


(VI. 28) 


(Oxygen Consumed (Oxygen Consumed by CO 


by Char) 
Carbon dioxide: 


Exchanged to Bubble Phase) 


F BM,i Y B,C0 2 ,i 
(CO ? out) 


+ a 2 Y B,i 


' F BM,i-l Y B,CP 2 ,i-l 
(C0 2 in) 


a l Y E,CO,i 


a l^ Y B,C0 2 ,i'" Y E,.C0 2 ,i' ) 

(C0 2 Exchanged to 
Emulsion Phase) 

(VI. 29) 


(C0 2 Produced by (C0 2 Produced by 
Char Combustion) CO Combustion) 


Volatiles: 


FREEBOARD EQUATIONS 


Y . = 0.0 
v,i 

Oxygen : 

F Y 
MT 0,i 


F Y 
MT 0,i-l 


- F Y Y 

MT V,i-1 0. 


(VI. 30) 


(Oxygen out) 


(Oxygen in) (Oxygen Consumed by 
Volatiles) 
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17.5 Y 


*' 4 (- 


0,i 


CO,i u+24-7 Y 


0,i 


-)/2 


2 Vi'V 


(VI. 31) 


(Oxygen Consumed by 
CO Combustion) 


(Oxygen Consumed by 
Char Combustion) 


where 


k> = 3 x 10 


10 


1.8 v 0.5 


exp (-16000/RTV) OrtT") Vo ) • 8 " 10le/s£ ' C ('.'1.32; 

g i 2 


P 2 

« = (_ )N ard k ., gmole/sec 

+ g^B i 0,1 ce,i c, l 


a 2 = ( 
Carbon monoxide: 


(VI . 33) 


F Y 
MT CO,i 


(CO out) 


F Y 
MT CO,i-l 

(CO in) 


2 a 1 Y rn . 

4 CO,i 

'■ (CO Produced by 
C-CO2 Reaction) 


+ F Y . n V n 
JyfT V,l-1 CO 

(CO Produced by 
Volatiles Burning) 


17.5 Y, 


- . ( 


O.i 


C0,i '•1.24.7 Y 


0,i 


a’ Y . (2 - -r-=-) 
2 0,1 

(CO Produced by 
Char Combustion) 


(VI. 34) 


(CO Burnt) 
:arbon dioxide: 


F Y 
MT C0 2 ,i 


(CO 2 out) 


a' Y r . (- 
2 O'* 1 9 


B, i 


F Y 

MT C0 2 ,i-1 
(C0 2 in) 


- 1) 


a 1 Y 

4 C0 2 ,i 

(CO„ Consumed by 
C-GO^ Reaction) 


17.5 Y 


4 C 


0>i 


CO,i '•1+24-7 Y 


0,i 


(VI . 35) 


(C0 2 Produced by 
Char Combustion) 


(CO 2 Produced by 
CO Combustion) 
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The boundary conditions are: 
y b,i = 0,21 


Y = Y 

E.l B.l 

Y c , - 0.0 
E,v,l 


(¥1 . 36) 


(VI. 3 7) 


(VI. 38) 


Y E,C0,1 0,0 


Y c rn , = 0.0 

e,co 9 ,i 


(VI .39) 


(VI. 40) 


Y B,CO r I = °*° 


(VI .41) 


SULFUR DIOXIDE AND NITRIC OXIDE BALANCES 
Nitrogen and sulfur content in the volatile products released 
during devolatilization is a function of bed temperature. Volatile 
nitrogen increases from 20 to 70% as tenperature rises from 800 to 


130Q t 'K (Fine, et al. 1974) and is expressed as: 
V N - 0.001T - 0.6 


(VI. 42) 


Similarly the sulfur content in the volatiles is expressed as: 


V c « 0.001T - 0.6 
6 


(VI. 43) 


Sulfur and nitrogen left. in the residual char are released as S0 ? and 
NO when char bums. The following material balances are made for 
sulfur dioxide and NO in the bed and in the freeboard. 

EMULSION PHASE EQUATIONS 


F EM,i Y E,S0 2 ,i 
(SO ^ out) 


F EM, i-1 Y E,S0 2> i-l 
(SO^ in) 


a l ( ‘ Y E,S0 2 ,i" Y B,S0 2 ,i' 1 

(SO „ Exchanged to 
Bubble Phase) 
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;,SO ? ,i Y E,SO i + ^SO ,c,i + VsO V,i (VL44) 


(S0 2 Absorbed by 
Limestone] 


(SO 2 Released 
during Char 
Combustion) 


(S0„ Released during 
Volatiles Combustion) 


“E.SO-.i" A t,i iZ i C1 ' e c,i - Sube.d^aE^vdRJ- 1 ’ smole/sec (VK45) 


F EM, i Y E , NO , i 


F EM,i-l Y E,NO,i-l 


a l^ Y B f NO,i ” Y B,NO,i^ 


(NO out) 


(NO in) 


(NO Exchanged to 
Bubble Phase) 


“ a H,NO,i Y E,NO,i + R E,NO,c,i + R E,N0,V 3 i 


(VI. 46) 


(NO Reduced by 
Char) 


(NO Released 
during Char 
Combustion) 


(NO Released during 
Volatiles Combustion) 


su . 7n . = a . AZ. (1-e . - e , . )k„ . P v . , (VI. 47) 

tjNOji m T,i 1 c,i tube,i E,NO,i -r-= — X., gmole/sec 

K. I*. • 1 

g E,i 

BUBBLE PHASE EQUATIONS 


F BM,x Y B,S0 2 ,i 


F BM,i-l Y B,S0 2 .i-l 


a l (Y B 3 S0 2J i" Y E,S0 9 ,i' 


(SO 2 out) 


(S0 2 in) 


(S0 2 Exchanged to 
Emulsion Phase) 


a B,S0 2 ,i Y B,S0 2 ,i + R B,S0 2 ,c,i 


+ R, 


B,S0 23 V,i 


(S0 2 Absorbed by 
Limestone) 


(SO 2 Released 
during Char 
Combustion) 


(S0 2 Released during 
Volatiles Combustion) 


where 


l B,S0 2 ,I A t,i AZ i (e c,i ■ e B } i )(1_e m£^vl ( 'TyV >>gIIK)le/sec 


(VI. 49) 
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iF. Y 
BM-,i B,'NO,i 


F -BM.,i-4 Y ® v : N0,i-I 


a l^ Y B,N9,i " Y EyNO-,i^ 


<(N0 out) 


a B,NO,i Y B,NO,i 


■(NO in) 


(NO Exchanged to 
Emulsion Phase) 


+ R. 


^B.yNO, c>i + ^B,NO,V,i 


(VI . 50) 


(NO Reduced by Char) (NO -Released 

during Ghar 
Combustion) 


(NO Released during 
Volatiles Combustion) 


where 


^ ^ j ^ ^ 

a B, NO, i ■ a m A t,i AZ i (e c,i - e tube-,r :ik B i NO,i rtT. X i ' **>!*/*** 

g , 


FREEBOARD EQUATIONS 


F Y 
MT S0 23 i 


f mt Y S0 2 ,,i~i ’ + R S0 2 ,i 


a S0 2 ,i Y S0 23 i 


(S0 2 out) 


(S0 2 in) 


(S0 2 Released) (S0 2 Absorbed 
by Limes tone) 


P a (?e i 

" here a so~,i = < -FTr~- 1 n a,T~ 5 k vi* s nK51e/s,ic 


(VI. 53) 


F Y 
MT NO,i 


F MT Y fo0,i-1 


+ R. 


NO,i 


a NO,i Y N0,i (VI. 54) 


(NO out) 


(NO in) 


(NO Released) (NO Reduced 
by Char) 


where a N0,i = ( RX7 )fl =,J ^ce,iN0,i’ S mole/sec 


(VI. 55) 


The boundary conditions are: 

Y n cr. 1 = Y t> cn i = Y u mo i = Y B mo , = 0.0 (VI. 56) 

E,S0 2 , 1 B 3 S0 2 j 1 E , NO j 1 BjN0,l 

SOLID PHASE MATERIAL BALANCE 

The overall material balance for the solids in ith compartment in 


terms of net solids flow, ltf + * is given by: 

nee** 
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W „ . = W , . , + W-.R, + 

net,i net, i-l £c,i ch 

(solids out] (solids in) (Char feed) 


W_ . 
fa,i 

(Additives Feed) 


-W n . 
D»i 


r. 

i 


(Solids Withdrawal (Char Burnt) 


(VI. 5 7) 


The boundary condition is W . , - „ * 

net,l = 0.0 

The material balance- for the carbon in ith compartment is given 

as follows by introducing the backmix flow, W . . 

y 6 mix 

(W . . - W „ .)X. , -[W . . , - W * . . + W . . - w n .]x. 

mix, i net,i' i+l L mix,i-l net,i-l mix,x D,i l 


+ W . = r- - W_ . C , M 

mix, l-l i. fc,i ch c 


(VI. 5 8) 


where X i is the weight fraction of carbon in the ith compartment. 


The boundary conditions are: 

W . . - W . M = 0.0 

mix, 1 miXjMl 


(VI. 59) 


The energy balance for the ith compartment is given as follows: 

C„(W . . - W . . )T. , 

S mix , i net,i' x+1 

(heat in from (i+l)th cell) 

-C c {(W . . , - W . . . + W . . - W n .)+ C I»}T. 

S m.x,i-l net, l-l mix,i D,i' gm MT i 

(heat out from ith cell) 


+ fO, W . . . + C F.„]T. . + r. q , 

L S mix, i-I gm MT l-l l n ch 


(heat in from (i-l)th cell) 


(heat generated by 
char combustion) 


“ g E,i q V,C0 ’ + g B,i q V + g C0,i q C0 

(heat generated by (heat generated (heat generated by 
volatiles combus- by volatiles CO combustion) 

tion in emulsion combustion in 

phase) bubble phase) 



Cheat of calcination) (sensible heat of solids feed) 


' A t,i AZ i U i ^ T i *■ T w,i^ + A t,i ^EtM U 


(heat removed by cooling tubes) fib - T wa ^^ j_ 


w,i 

) (VI. 60) 


.(heat losses through the 
walls) 


ENERGY BALANCE IN THE FREEBOARD 


The following equations are obtained for energy balance in the 
freeboard in ith compartment. 

(W ent,x C S + C gm T i-1 + r i q ch 


(heat in from (i-l)th 
compartment) 

+ %,i q V,CO 


(heat generated 
by char combustion) 


g CO,i q CO 


(heat generated by (heat generated by 
volatiles combus- CO combustion) 

tion) 


- (W . . C_ + C F)T. 
v ent, i S gm MT . 1 


A. . AZ. a™ . U. (T. - T .) 
t,x x TlE,i i x w,x 


(heat out from ith cell) (heat removed by cooling tubes) 

+ A. . AZ. a™.. . U . (T. - T ,, .) (VI. 61) 

t,i x nElV, l w,x l wall,i 1 ; 

(heat losses through the walls) 

Some of the correlations used in simulation are listed in Table 2 . 


Table 3 indicates the assumed values for the parameters involved in the 
model. If, in future, proper and accurate correlations become available, 
these parameters can be substituted with those correlations. The logic 
diagrams for the computer programs are shown in Figures 7, 8 and 9, 
Symbols are explained' in Appendix VIII. Algebraic equations obtained 
are solved using IBM 360 computer available at WVU. 
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TABLE 2 . CORRELATIONS USED IN SIMULATION 

Heat capacity of solids, C g = 0.215 caIs/gm ,0 C 

Heat capacity of gas, C = 6.8 + 0.5 x 10~ 3 t(°C) 

gm 

3 

Density of limestone =2.4 gms/cm 

3 

Density of coal =1.4 gms/cm 
Minimum fluidization velocity. 


U 


mf 


= (: 


-) {[33.7 Z + 


P g 


0.0408 d p (p - 
P g S 

P 2 


Pjg 1/2 
- JL — ] 


Bubble diameter, Dg = Dg M - (Dg M - Dg 0 )e^)(-0.3 Z/D^ , cm 
where 

D bm - 0.652 {A t CU 0 - U mf )} 0 ' 4 

D B0 = °- 347 {A t t“o - V /n d }0 ' 4 

Bubble velocity, 1L = U - U ~ + 0.711 s/glL 

B o mf v & B 

Bubble fraction, £_ = (U - U 

B ^ o mr B 

Cloud fraction, £ c = Eg o^/(Og - 1) 

'" here % “ e m f V u B f 

Void fraction at minimum fluidization, e ~ - 0.5 

mf 


33.7}, 

cm/sec 
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TABLE 5. PARAMETERS IN THE MODEL 

2 

Bed to tube heat transfer coefficient, U = 0.00765, cals/sec* cm °K 

2 

Freeboard heat transfer coefficient = (1/3)U, cals/sec*cin °K 

2 

Bed to wall heat transfer coefficient = 0.0021, cals/sec*cra °K 
Solids mixing parameter, f - 0.075~0.3 

Fraction of wake solids thrown into the freeboard, f = 0.1-0. 5 

Sn 

Cooling water temperature = 300 °K 

Wall heat transfer coefficient in the freeboard = 0.00025 cals/sec 
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Fag. 7 Logic Diagram for the Computation of 
Limestone Entrainment 
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Fig. 8 Logic Diagram £©ir tgse Computation of 


Claar East raisnsuent 











Elutriation Results 


Design Data 


Input 


Operating 

Conditions 


CombustioiT>- 

Xres 

Initial Values 
ETCA . Tj . X j 



Subroutine No 

CRRECT t ETCG^> 

Carbon Balance 


Gas Phase Balance 

— 

Energy Balance ^ Tj 

S |*®*i .old - " T i | 

TNORM : ; 

M 

TAV : S T. / M 


TNORM ^ 1% TAV 


Yes 


Fig . 9 Logic Diagram for Combustion Calculations 








Fig.9 CConf imaed} . 
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VII. RESULTS AND DISCUSSION 

The validity of the proposed fluidized bed combustor model is 
tested under a set of operating conditions based on the experimental 
data reported by the National Coal Board, England (1971) , Gibbs and his 
associates in Sheffield (1975), the Exxon Research and Engineering 
Company, U.S.A. (1976) and NASA Lewis Research Center, Cleveland, Ohio 
(1978) . Table 4 gives the dimensions of the various beds simulated 
and the configuration of heat-exchange coils used. 

Fig. 10 shows the size distributions of the particles in the bed 
and in the elutriated material for a given feed size distribution of 
particles under the set of operating conditions specified in the figure. 
The solid lines in Fig. 10 representing the results of the model 
simulation indicate close agreement with experimental data. The fine 
particles in the feed are entrained by the gas stream leaving the bed, 
and hence the bed particle size is larger than that of the feed particles. 
The fine particles are splashed into the freeboard by the bursting 
bubbles at the bed surface. Bigger particles return to the bed while 
the smaller ones are completely elutriated. 

Fig. li shows the results of the simulation on axial bed temperature 
profiles for two different configurations of cooling tubes in the bed. 

The difference in the profiles is due to the solids mixing pattern in 
the bed. When horizontal tubes having closer horizontal pitch distance 
between the tubes are used, solids mixing is considerably hindered, 
resulting in steeper temperature' profile in the bed. The solids mixing 
is promoted significantly by the action of bubbles lifting the solids 
in the wake while ascending. If internals are closely packed in the 



TABLE 4. DIMENSIONS OF F.BC EXAMINED 
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Bed Cross -section 
(sizes in cms) 


Specific Tube • Vertical Horizontal Tube 

surface -area Outside Pitch cms Pitch cms configuration 

cm 2 /-cm 3 'bed Diameter cms 
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bed, the free moving, coalescing bubbles are constrained and may be 
broken as they impinge on the walls of the tubes. Hence the solids 
movement is retarded which in turn affects the temperature profile. 

In the model the solids mixing in the bed is represented by the 
mixing coefficient, f^. For’ poor solids mixing f takes on'low values 
CO. 05-0. 2) and for vigorous mixing it takes high values (0.2-0, 4). 

A simulation of the operation of NASA fluid bed combustor is presented 
in Fig. 12. Again in this combustor, closely packed horizontal tubes 
are employed for heat removal. As indicated earlier, the solids mixing 
is poor which is clearly shown by the non-uniform temperature profile 
and the non-uniform carbon concentration profile in the bed. Carbon 
concentration peaks at the coal feed point and decreases rapidly within 
the bed as combustion proceeds. Because of the higher concentration of 
carbon and cxygcn near the coal feed point near the distributor, the 
combustion rate and the heat- release rate are higher than the remaining 
part of the bed. This results in a high temperature zone near the coal 
feed point. On the other hand; in the freeboard region, though 
combustion takes place, due to the heat losses through the wall, the 
temperature drops . 

The concentration profiles of oxygen in the bubble and emulsion 
phases together with the volatiles concentration in the bed are shown 
in Fig. 15. Experimental observations reported by Gibbs, et al . (1975) 
on the time averaged oxygen concentrations along the bed height are 
also shown. Time averaged concentration is neither the bubble phase 
nor the emulsion phase concentrations since they are obtained from gas 
analyzer probes. The peaks and valleys of the analyzer response which 




.Q HAS A DATA 

PEESSU&E : 

5-15 atm 

PREDICTED 

EXCESS AID 

: 64% 

1 

| 6 : CO0UH6 TUBES 

FW : 0-035 




HEHG5ST A®©VE THE DISTRIBUTOR - cms 


Fig. 12 Temperature and Carbon Concentration Profiles in the Bed 










58 


correspond to that of bubble and emulsion phase oxygen concentrations 
respectively are averaged to obtain the concentration profile. 

Near the coal feed point, a large portion of the volatiles is 
released in the emulsion phase due to the rapid devolatilization of 
coal. These volatiles immediately bum consuming the available oxygen 
in the emulsion phase. The oxygen concentration in the emulsion phase 
is quickly reduced to zero. The volatiles in the emulsion phase are 
exchanged with the gas in the bubble phase where they are burnt 
completely. The excess volatiles move up to top compartments while 
they are burnt on the way. Thus, the oxygen concentration decreases 
gradually in the bubble phase along the bed height. 

Fig. 14 shows the concentration profiles of C0 2 j CO and volatiles 
in the bubble and emulsion phases. The concentrations of CO and 
volatile products in the bubble phase are zero since complete 
combustion of these gases is assumed in this phase. The experimental 
data shown are the time averaged concentrations of CO 2 and CO in the 

t ¥ 

bed. Near the coal feed point, the volatiles released in the emulsion 
phase burn to form carbon monoxide, the concentration of which increases 
along the combustor height. As long as volatiles are present in the 
emulsion phase the combustion of char and CO does not take place, 
whereas the C-C0 2 reaction takes place. Hence the C0 2 concentration 
in the emulsion phase along the bed height decreases until all the 
volatiles are burnt. Once CO and char combustion start, C0 2 concen- 
tration increases in the- emulsion phase. On the other hand, C0 2 
concentration in the bubble phase increases gradually as a function 
of the bed height indicative of the progressive combustion of char and 
volatiles in the bubble phase. 
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In regard to the absorption of S0 2 by the limestone present in 
fluidized bed combustors, the percentage absorption increases with an 
increase in the Ca/S ratio. Ca/S ratio is the most significant 
operating variable determing the reduction of SC> 2 in the flue gas . 
3toichiometrically, one mole of calcium is needed to capture one mole 
of sulfur. But experimental evidences indicate that even with a 
Ca/S ratio of 3, sulfur capture is not complete. This is due to the 
fact that as SO^ reacts with fresh calcined limestone, an impervious 
layer of CaSO^ is formed surrounding the particle and thereby rendering 
the particle ineffective in capturing SO^ further. At Ca/S ratio of 
1.2, S0 2 capture efficiency is about 60 percent (Fig* 15). S0 2 

retention efficiency improves to 93 percent when Ca/S ratio is 
increased to 3.3. The experimental data and the calculated result 
from the proposed model are shorn in the figure demonstrating good 
agreement between the two. The current EPA regulation on S0 9 emission 
Cl. 2 lbs. S0 9 per million Btu burnt) corresponds to a S0 9 retention 
efficiency of around 72 percent for 2.75 percent sulfur coal 
(Pittsburgh coal). From Fig. 15, a minimum Ca/S ratio of around 1.8 
is needed based on the model calculation to meet the EPA requirements 
for the set of operating conditions specified in the figure. 

The effect of operating temperature on SC> 2 retention is shown 
in Fig. 16. An optimum temperature range of 800 to S5Q°G can be 
observed in which the S0 9 retention efficiency is maximum. At lower 
temperatures che rate of S0 2 capture is low, resulting in a lower 
sulfur retention efficiency. At higher temperatures, plugging of the 
pores occurs due to rapid formation of CaS0 4 around the outer shell 
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and reduces the effective specific surface area of the limestone 
particles resulting in a lower S0 2 retention efficiency. The agreement 
between the model predictions and the experimental data is satisfactory; 

Fig. 17 shows the effect of fluidizing velocity on sulfur retention 
efficiency. At low velocities, elutriation is small and hence the 
average bed particle size is small. This implies a greater reactivity 
of the limestone particles . Also, the gas and solids residence times 
are increased. Hence a higher S0 2 retention efficiency is obtained. 

But, at higher fluidizing velocities, entrainment is large, and the 
particles entrained are also larger. Bed particle sizes are consequently 
larger resulting in lower reactivities. At higher superficial velocities r 
residence time is also short. A combination of these effects results 
in a lower sulfur dioxide retention efficiency. Fig. 18 shows the SO2 
concentration profiles obtained from simulation of the NASA combustor. 

Near the coal feed point, because of the combustion of volatiles, a 
large proportion of SO^ is released into the emulsion phase. A high 
concentration of S0 2 is seen at this location. S0 2 is then absorbed by 
the calcined limestone particles in the bed and its concentration 
in the emulsion phase decreases as a function of height above the 
distributor. The gases leaving the bed surface come in contact with 
the fine limestone particles entrained into the freeboard, and sulfur 
capture is appreciable in the freeboard region. Also, in the case of 
NASA combustor, since the cross sectional area of the freeboard region 
increases as a function of bed height, the gas and solids residence 
time in the freeboard increases; hence the SC> 2 retention is high and 
its concentration in the freeboard is low. 



CONCENTRATION - ppm 


EMULSION PHASE 


PRESSURE = 5.15 aim. 

EXCESS AIR = 63-9 % 

RED TEMP. = 878 G 
LIMESTONE 1359 l - 2830 pm) 


FREEBOARD 


BUBBLE PHASE I 


HEIGHT ABOVE THE DISTRIBUTOR , cms 


Fig. 18 SO2 Concentration Profile in the Combustor 


PRECEDING PAGE BLANK NOT FILMED 






66 


The effect of bed temperature on NO emission is shown in Fig. 19. 

The average carbon concentration in the bed^which is closely related 

to NO reduction is also shown in the figure. NO concentration at the 

exit in the flue gas increases with the bed temperature while the 

average carbon concentration in the bed decreases . At low temperatures , 

NO formed is reduced by the large amount of char in the bed. At higher 

temperatures, the NO emission increases since the char content is low 

affecting the NO-char reaction rate. At temperatures' above 825°C, 

the NO emission plateaus off. This is due to the fact that while 

the NO reduction rate by char above this temperature becomes fast, 

the char content of the bed is significantly lowered. EPA regulation 

limits the NO emission to 0.7 lbs per million Btu of heat released. 

This limit corresponds to a NO concentration of about 970 ppm in the 

exit gas under the conditions specified in the figure. Hence it is 

clearly demonstrated that fluidized bed coal combustors can meet the 

current EPA NO emission standard, 
x 

Fig. 20 is an example of the NO concentration profiles in the 
bubble and emulsion phases. Data points are the time averaged NO 
concentrations obtained experi mentally ( Gibbs, et al, 1975) near the 
wall and at the center of the bed. The NO concentration near the wall . 
is higher than that at the center of the bed. The probability of a 
probe sampling the bubble is higher at the center and the emulsion 
near the wall since the proportion of the bubbles is small near the 
walls. These results indicate that NO is preferentially formed in the 
emulsion phase due- to the release and subsequent combustion of volatiles 
in the emulsion phase. 
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Higher concentrations of NO in the emulsion phase near the coal feed 
point are the results of rapid evolution and combustion of volatiles 
from coal in this region. The NO concentration in the bubble phase 
increases because of char and volatiles combustion. Fig. 20 also 
indicates the NO concentrations in the freeboard. In the freeboard 
both char combustion and NO reduction take place. When the char bums 
NO is released from the nitrogen contained in the char. These two 
competing reactions determine the total NO emission at the outlet 
of the combustor. 
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VIII. SENSITIVITY OF THE MODEL PARAMETERS 

The most important parameters in the model are the solids mixing 

parameter f , the fraction of wake solids thrown into the freeboard 
* w 

f , and the bed to tube heat transfer coefficient U. The effects of 
sw 

these parameters on the temperature profile in the bed are shown in 
Fig. 21, 22 and 23. For this parametric study, the bed dimensions and 
cooling location coils are similar to the NASA fluid bed combustor 
(Table 4) . In future when more accurate correlations are developed 
these new correlations should be used for estimation of these parameters 
in the model. Fig. 21 shows the effect of f on the temperature profile 
in the bed. Low values of f represent poor solids mixing. When 
solids mixing is poor, most of the volatiles are released near the 
coal feed point. Combustion of these volatiles causes a rise in the 
temperature of the bed in the neighborhood of the solids feed pdint. 

As f increases, solids mixing becomes more vigorous, and heat liberated 
by the combustion of volatiles near the feed point is immediately 
dissipated by the rapidly mixing solids. Because of improved mixing, 
the bed temperature profile becomes uniform. 

The extent of freeboard reactions depends on the solids hold up in 
the freeboard. Solids hold-up in turn depends on the amount of solids 
thrown up into the freeboard, by the bursting bubbles at the bed surface.- 
The rate of entrainment of solids from the bed surface, F^, may be 
given by (Yates and Rowe, 1977). 

F = A. (U - U f )f (1 - £ r)P f f gm/sec 
O t^ o mf w^ s sw 


(VI 1 1. 1) 
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Fiy . 21 Effect of Solids Mixing on the Bed Temperature Profile 




For a set of operating conditions, increasing the value of f ^ 

increases the solids splashing rate at the bed surface. If a large 

portion of char leaves the bed, char elutriation from the combustor- 

will also be large. This will result in lower combustion efficiency, 

and hence a lower temperature in. the bed. The temperature drop in 

the freeboard decreases as f increases because of increased combustion 

sw 

in rhe freeboard. This is clearly illustrated in the Fig.. 22. It 
should be borne in mind that the NASA fluidized bed combustor is a 
small unit and heat losses from the wall in the freeboard are 
considerable. If the bed is bigger in size than that is used here 
for simulation, the heat losses through the walls will be minimal. 

Also, with good insulation, heat losses can be reduced. In large 
commercial combustors, if the entrainment is increased, combustion 
of char in the freeboard will also increase resulting in higher 
temperatures in the freeboard. Hence it is seen that the parameter 
f is very critical and has to he carefully evaluated in order to 
properly account for the freeboard reactions. 

Fig. 23 is a parametric study of the effect of bed to tube heat 
transfer coefficient on the tenperature profile in the bed. Changes 
in the value of the heat transfer coefficient do not significantly 
affect the shape of the temperature profile but affect the level of 
bed temperature. As can be seen from Fig. 23, if the actual heat 

transfer coefficient were 0.00765 cals/s ec. cm 2 , °C (56 Btu/hr .ft 2 .°F) > 

2 

assuming a lower heat transfer coefficient of 0.0063 cals/sec. cm ,°C 
2 

(46 Btu/hr. ft ,°F) would result in a temperature difference of 

about 40 °C above the actual temperature. So it is apparent that an accurate 
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estimation of the heat transfer coefficient for a wide range of design 
is critical to make accurate predictions of bed temperatures. 

Fig. 24 brings out the effect of bubble size (or the compartment 
size, since bubble size is same as compartment size) on the bed 
temperature profile. When a single bubble diameter is used as an 
adjustable parameter, a small value for the bubble diameter over- 
estimates the combustion rate in the bed. This is because of increased 
mass transfer of oxygen to the emulsion phase from the bubble phase. 

This results in steep temperature profiles. As the bubble diameter is 
increased, the profile becomes less steep and also the average tempera- 
ture decreases because of less combustion in the bed. Fig. 24 also 
indicates the predictions from the present work compared with 
experimental data. Clearly it is seen that bubble size cannot be 
assumed as an arbitrary parameter, and the coalescence of bubbles 
has to be incorporated in any realistic FBC model. The effect of 
the location of cooling tubes on the bed temperature profile is 
shown in Fig. 25 by moving the heat exchange zone. In this calculation, 
the other variables axe kept constant. It appears that by properly 
adjusting the location of the cooling coils, the bed temperature 


can be maintained uniform. 
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IX. CONCLUSIONS 

The following conclusions can be drawn from this study: 

1 . The agreement between the simulated results and the 
experimental data attest to the validity of the proposed model for 
the fluid bed coal combustion and of the assumptions made. 

2 . The elutriation phenomenon is taken into consideration in 
the model. The results of simulation on elutriation agree well with 
the experimental data. 

3. The model confirms the importance of the role of solids 
mixing _n maintaining a uniform bed temperature. Poor solids mixing 
results in nonuniform temperature profile and carbon concentration 
profile in the bed. The poor mixing is accounted for by f w , the solids 
mixing parameter in the model. This important parameter in the model 
also accounts for the devolatilization of coal. The assumption of a 
major portion ( of the volatiles being released near the feed point is 
justified by the concentrations of NO, 0 2 and CO observed experimentally 
near the coal feed point. 

4. Although a simple approach is taken to calculate the bubble 
size through internals (and the results seem reasonable), a proper 
bubble size correlation in the presence of cooling tubes with different 
configurations needs to be developed. ■ Bubble size cannot be assumed as 
an adjustable parameter, and bubble coalescence has to be considered. 

5. Attention has to be -focused on the evaluation of the solids 
mixing parameter f , the fraction of wake solids thrown into the free- 
board f , and the bed to tube heat transfer coefficients. A 

sw 

parametric study .of these variables indicates the necessity of 
accurate estimation for properly accounting for solids mixing. 
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freeboard reactions and bed temperature profile. 

6. Although the validity of the' two phase theory has been 
questioned for very large particles (> 2000 ym) and very small 
particles (< 50 ym) , the predicted results indicate that the proposed 
two phase model can effectively simulate the performance of the FBC. 

7. The concentration profiles of 0 2 , CO, C0 2 and. volatiles 
computed based on the model are in accordance with the experimental 
observations . 

8. NO (nitrogen oxide) emission is shown to be dependent on the 
operating temperature. NO emission can be maintained below the EPA 
limits by maintaining a higher concentration of carbon in the bed and 
in the freeboard. NO concentrations in the bed indicate that most of 
the NO is formed in the vicinity of the coal feed point. 

9. In operation of a FBC a balance has to be made bet\*een the 
combustion efficiency, the carbon loss, higher S0 2 retention and lower 
NO emission. Based on the analysis, the approximate optima- are found 
to be (i) for the temperature range between 800 to 850 P C, (ii) for the 
velocity between 90 to 100 cms/sec, (iii) for the particle sizes 
below 3000 ym, and for the excess air between 10 to 25%. 
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39. 

40 , 

41 . 

42. 

43. 

44. 

45. 

46 . 

47. 

48. 

49. 
iO . 
51 . 

52. 

53. 

54. 

55. 
56 . 

57. 

58. 

59. 


2U0 f GFLOW r MG AS f FMO f FMF . EX AIR f T AV f PAV r CAS f UAD f WCOAL f TDHC f HFB 
1/RES/ UDISf UELUA f CELU fEFF f DPS VB , DPUMB f DCSVB f DCUMBf 
2DAS0F f DAWMF f DC3VF f DCWMF 

DATA MC f MH2f MS,fM02f MN2f MNO fMH2Q f MS02 fMH2Sf MCO • MCJ2 f MCAO f MCA8Q4 
1/12. f 2 . f32, f32 . f 28 . f30 . f 18. f 64 . r34 . f28 . f44 . f56. 08 » 136 . 14/ 

DATA RHOC fRHOASH/1 . 4 f 1 . 4/ 

RHOAD =2.4 
EMF = 0.5 • 

RG = 32.05 
G = 980.1 

PI = 3.141593 
C 

C FBC DESIGN DATA AND FEED PARTICLE SIZE DISTRIBUTION 

C 

CALL DESIGN 

READOfIOOO) NDPf (DIA(I) fI=1.NDP) 

READ (5 < 1001 H FRACTA (I ) f I=1fNBP> 

READ (5 f 1001) (FRACTC(I)f I=1fNDP) 

DP < 1 ) = DIA < 1 ) 

SUMA =0.0 
SUMB =0.0 
3UMC =0.0 
SUMD =0.0 

DO 10 I = 2 j NOP" 

DP ( I ) = (EI4(I-1)+DIA<I) > * 0.5 
SUMA = SUMA + FRACT A ( I > /DP < I ) 

SUMB = SUMB + FRACTA ( I )*DF (I ) 

SUMC = SUMC + FRACTC ( I ) /DP < I ) 

SUMD = SUMD + FRACTC ( I ) *DP < I ) 

10 CONTINUE 

UASVF = 1 . /SUMA 
DAWMF = SUhP 
DCSVF = 1 . /SUMC 
DCWMF = SUMD 
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3 , 0 . > 
61 . 
s2 . 
93 . 

64 ^ 
65 . 
66 • 
47 - 
6 §. 

69 , 

70 , 

71 , 
?2 * 

73 , 

74 , 

75 , 
76 , 

77 . 

78 , 

77 , 
80 . 
81 . 

32 , 

33 . 

W» 

35 , 

36 . 
87 . 
38 . 

§?.. 

90 , 

91 , 
92 '. 

93 , 

94 , 

95 , 

96 , 

97 , 

98 , 

99 , 
100 . 
101 , 
102 . 

103 . 

104 . 

105 . 

106 . 
107 , 
. 108 . 
10 . 9 . 
110 . 
1 : 11 . 
112 . 

113 . 

114 . 

115 . 
llo . 
117 . 
113 ,. 

- 119 . 


C 

c 


c 

c 

c 

c 

c 

c 

d 

c 

c 

c 

c 

c 

c 

c 

c 

e 

c 

c 

c 

c 

c 


RE AjO < 5 ?. 1 0 1 0 ) N AfctE L 1 * N AM £L2 l, * C AO , X » G 0 , X S 1 0 2 > X CO 2 
composition a no ne-t heating value of coal 


XCF ; fI*ED CARBON 
XCW ; yOLejlLE fjARBGN 
XH j HYDROGEN, 

: syLPfijR 
XG \ OXYGEN 
XN I NITROGEN 
xw. : MQI STORE 

11 : DRY BASIS 

pEApj 5 ? 1010 )NAMECl;NANEC 2 ? XC ? XHrXNrXS,X 0 rXU r XA,yM 


OPEfA TI^G COflDITipNS 1 /fEQ CONDITION) 


pEAB<5 , 1,001 )HLMf;HLF;PAV r TAV 

OPERATING CONDITIO^ 2 (SOLIDS AND GAS FEEDS) 

flEftfff.5 ; 10.01) pCOAL ,U!f)D r CAS r U,0 f f /if » EX A If 

^CALCULATION Of VOLATILES YIEJLD AND THE COMPOSITION OF VOLATIi.ES 
UW = 0.2*<lOO .^VM-JO*?> 

R - EXP (26. 41-3. 961£ALaG.( CTAV-273. ) J +0.01 15-*10Q.. *,0(1) 
y = itooftvis - k r .ww>£p.oi 
y = v*a,-xy-XA) 

RN =' 1 ,6-0,00/*TAV 
IF (RN .G-T*. -I.; RN = 1.0 
if fJLj\ 0.) RN = ,9 Vo 
.RS = .RN 
RO =0.0 
RH = 0.0 

CH4 = o'. 20-1-0. 46y*VH;T0.241*VM**2 
-H2 = 0 , 157+0 VS68*VN-+i . 330>KVM^!)(2 

-C02 = o'. i 35-0.9dO>V'M+i '. ?04*VM**2 
-CO = 0 .423-2. 6'53^ytU-4'. 8£5*VM**2 
JHCO = 0. 409-2’. 3£9*V,M^.4 ,J^54*VM*.*2 
TAR = -. 325+7. 27-P£^1“i2.88iVM**2 

HTAR = XH*(1,-RH.)^(1 ,-XW) ’ - VT ( CH4/16 . ;K2 . 0+h’2/2 . +H20/18 . ) *2 . Q 

OfTAR = Xa#(l'.-RO l ) r' V*.'(CG2/44.+.CO/23.*0.5+H20/lS,0*0.5)*32,0 

/f-TAR = 120.0 

CH4 = V*CH4/1,6. 1 0 

H2 = V*H2/2.0 

C02 = V*C02/44.0 

CO = . 0*00/28.0 

^20 = V* H20/18V0 

C-T AR = VKTAR - HTAR - OTAR 

TAR = < CTAR+HTAR+OTAR ) /.HTAR 

•PVGAS = CH4,++I2+TAR 

•GOV = CO/RVGAS 

CG2V - C02/RVGAS 

■COVE = (-CH4+CTAR/12. 0 )/RVGAS 

C02VJ? = COVB 
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120 . 

121 . 

122 . 

123. 

124. 

125. 

126. 

127. 

128. 

129. 

130. 

131. 

132. 

133. 

134 . 

135. 

136. 

137. 

138. 

139. 

140. 

141. 

142. 

143. 

144. 

145. 

146. 

147. 

148. 

149. 

150. 

151. 

152. 

153. 

154. 

155. 

156. 

157. 

158. 

159. 

160 . 
161. 
162. 

163. 

164. 

165. 

166. 

167. 

168. 

169. 

170. 

171. 

172. 

173. 

174. 
175., 

176. 

177. 

178. 

179. 


xcv = 

CTAR 

+ (CH4+CQ2+C0) *12.0 

XCF = 

xc - 

XCV 

RC = XCF / 

XC 

COALC 

= 

xc 

/ 12.0 

COALH 

- 

XH 


COALO 

= 

xo 

/ 16.0 

COALN 

t= 

XN 

/14.0 

COALS 

=s 

XS 

/ 32.0' 

CHARC 

= 

RC 

* COALC 

CHARH 

= 

RH 

* COALH 

CHARO 

= 

RO 

* COALO 

CHARN 

- 

RN 

* COALN 

CHARS 

- 

RS 

* COALS 

RCHAR 

s: 

1.0 - V - XU 

CCHAR 

= 

CHARC*12 . O/RCHAR 

HCHAR 

= 

CHARH*1 .O/RCHAR 

OCHAR 

- 

CHAR0*16. O/RCHAR 

NCHAR 


CHARN*14, O/RCHAR 

SCHAR 


CHARS*32. O/RCHAR 

MAIR = 

- 

0 . 21*MQ2+ ( 1 . -0 . 21 ) *MN2 


A2 = XC/MC+XH/MH2*0,5+XS/MS+XN/MN2-Xa/M02 
FMTH = WC0AL*(1.-XW)#A2/0.21 
IF (EXAIR .GT. 0.) FMF=FMTH*(1 ,+EXAIR) 

IF (EXAIR .EQ, 0. .AND .FMF .EQ. 0.) FMF = ATB < 1 ) *U0*PAV/RG/TAV 
IF C EXAIR . EQ. 0.) EXAIR = FMF/FMTH - 1. 

U0 = FMF*RG*TAV/PAV/ATB<1> 

FMQ = FMF* < 1 . -0 . 21 ) + ( ( XC/MC+XH/MH2+XS/MS*0 . 2+XN/MN2*2 , 0 > * ( 1 , -XU > - 
1XUI/MH20 > *WC0AL+FMTH*0 . 21*EXAIR 

GFLOW = FMF* ( 1 . -0 . 2 1 ) *MN2+ < ( XC/MC*MCG2+XH/MH2*MH20+XS/MS*MS02*0 . 2+ 
1XN/MN2*2 . 0*MN0 > * < 1 . -XU ) +XU ) *WC0ALFFMTH*0 . 21*£XAIR*M02 
MGAS = GFLQW/FMO 
C 

C FMO : AVERAGE FLOW RATE OF GAS IN THE BED MOLE/SEC 

C 
£ 

C RHOCH .* DENSITY OF CHAR 

RHOCH = RCHAR*RHOC 
IF ( CAS . EG . 0 . . AND . WAD . GT , 0 . ) 

1CAS=WAD*XCA0/MCA0/ ( WCGAL* ( 1 . -XW ) *XS/MS ) 

IF (CAS .OT.O » .AND. WAD. EG .0 » > 

1 WAB=CAS* (UCOAL* < 1 . -XW ) *XS/MS ) / ( XCAO/MCAO > 

C 

C SULFUR CAPTURE EFFICIENCY ASSUMED TO BE AROUND 85 PERCENT TO 

C CALCULATE THE DENSITY OF THE PARTICLES IN THE BED 
C 

A1 = 0.0 

IF (CAS .GT. 0.0) Al = 0.85/CAS 
IF (Al .GT. 0,4) Al = 0,4 

RHOBED = (l.-XC02+XCAO/MCA0*Al*MCAS04)*RHOAD 
IF (CAS .EG. 0.0) RHOBED = RHOAD 

WRITE (6/2000) NAMEL1 / NAMEL2 / XCAO / XMGO / XSI02 / XC02 » 

*(DIA(I) fFRACTA(I ) >1 ~ 1/NDP) 

WRITE < 6 / 2010 ) BASVF/DAWMF . 

WRITE ( 6 / 2020 ) NAMEC 1 / NAMEC2 / XCF /XCV • XH «XN»XS»XO/ XW / XA/ VM ■ 0 
WRITE (6/2030) ( DI A < I ) / FRACTC ( I ) / 1 = 1/ NDP ) 

WRITE (6/2040) DCSVF/DCUMF 

IF ( HLF .EQ. 0.0) VMF = VOLUME (HLMF) 

IF < HLMF .GT. 0.0) WB = VMF* ( 1 ,-EMF) *RHOBED 
CALL ELUT 
WRITE (6/OF'CF) 
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ISO. 
181 . 

1000 

182. 

1001 

183. 

1010 

184. 

2000 

' 135. 

186, 
137, 

2010 

188. 

189. 

2020 

190. 

191. 

192. 

2030 

193 . 

1 94, 

2040 

195. 

194. 

10000 

197. 

193, 

199. 

200. 
201 . 
202, 


203, 

204 . 

205, 

206. 

207. 

208. 

C 

209. 

C 

210. 

c 

211 . 

c 

212. 

213. 

214. 

215. 
216^ 
217, 
21-3. 

219. - 

220. 
221- 

10 

222. 

20 

223. 

224. 

225. - 

226. 
227. 

c 

223. 

C THj 

229. 

C 

230, 

231-.- 

232. 

233. - 

234. 

235. 

236. 

237. 

238. 
239 . 



WRITE <6jRES) 

FORMAT < 12, /r ( 8F10 .0)) 
FORMAT CSF1 0.0) 


>0 FORMAT ( ' 0' , IX ,2A4 » AOX , ' XCAG = ' . F6 .3 , 10X , ' XMGO = ',F6.3,10X, 
*'XSI02 = ' ,F6.3,10X* 'XC02 = ' , F6 . 3, /, ' 0 ' , 

*T4 If 'DIAMETER r CM' , T81 , 'WT .FRACTION ' t / r '0' t < T41 , F3 . 4 t TS1 ,r8.4> ) 
.0 FORM ATT '0' ,5X» 'SURFACE VOL MEAN BIA OF ADDITIVES FEED = DASVF = 
#F10 .4 ,3X, ' CM' , 5X, 'WEIGHT MEAN DIA. - DAUMF = ' ,F10.4r3X, 'CM' 
iO FORMAT ('0',lXr2A4,3X, 'XCF = ' ,F5.3,3X, 'XCV = ' i F5.3,3X» ' XH - 
*F5.3»3X,'XN “ ' ,F5.3,3X, 'XS = ' ,F5.3,3X, 'XO = ' ,F5. 3 »3X. - XW = 
*F5.3»3X,'XA = ' , F5 •3»/»'0 / ’f 12X» ' VM = •»F5*3r4X»'V - ',F5.3) 
iO FORMAT ('0',T41, 'DIAMETER , CM' , T81 * ' WT . FRACTION' / ' 0' t (T41 »FS . **, 
*T81,F8.4>) 

10 FORMAT! '0' ,5X, 'SURFACE VOL MEAN DIA OF COAL FEED = DCSUF = ', 
*F10.4,3X, 'CM' ,5X» 'UT.MEAN DIAMETER = DCUMF = ',F10.4,/> 

►00 STOP 
END 

SUBROUTINE AREA < ZI, DTI , ATI ) 

COMMON /A/ ZHE (30) ,AHE<30 > , DTUBE (30),PV(30) , PH ( 30 > , ZB( 30 > » 
1ATBC30) .UMFC30) , DVB ( 30) , DVBEFF < 30 ) , UTA ( 30 ) , UTC < 30 ) , 

2EMF,R6 , G t P 1 1 HLMF tHLF , PAV »TAV, FMO , RHOCH , RHOBBD , DZA V , VMF -XAV, ETCC , 
3DPSVB , DPWMB r DCS VB , DCUMB * UO , MGAS > MTB 
COMMON /C/ DIA(30) ,FRACtA(30) ,FRACTC(3Q) ,DP (30) i>FRC(3G) ,FRA(30) , 
1WF (30) ,01(30) , Q2 ( 30 ) , BB(30 ) ,RM(30) ,W(30) ,E(30> rENfA(30J ,ELUA(30) 
2ENTC ( 30 r 30 ) i'FRAEN ( 30 ) ,FRAEL ( 30 ), CU ( 30 > , 

3PFA ( 30 ) > GFLQW t WCOAL jUAD , WB . r WBC r WELUA r CELU , EFF , XC , XCF t 
4X A r XW r R.GHAR r CCHAR f WB I S r RHG AD , TDH C f HFB , NDP 

CALCULATION OF THE CROSS SECTIONAL AREA GIVEN THE HEIGHT ABOVE 
THE DISTRIBUTOR 

00 10 J = 1 , MTB 
IF ( ZI ,GT. ZB(J> > GO TO 10 
RJM1 = SORT ( A-TB ( J— 1 ) / PI 5 
Ai ® ( ZI — ZB ( J— 1 ) ) / C ZB(J) - ZB(J-l) > 

81 = SORT ( ATB(J) / ATB(J-l) ) - 1.0 
RI = ( 1,0 + A1 * Bl- > * RJM1 
0TI = 2*0 * RI 
ATI = PI * RI ** 2' 

GO TO 20 

CONTINUE 

CONTINUE 

RETURN 

END 

SUBROUTINE ATTR ( RHOCCH rT >BC r P , YQ2, RO , TB , RW ) 

REAL MC 

THIS SUBROUTINE COMPUTES' BURNING TIME OF A CHAR PARTICLE 
EM=1.0 

SIGM=1 .36E-12 
INDX=0 
DfS= 100.0 
TP=T 

MC = 12.0 

DO 100 1=1 >20 

ETSMAX=0 . 001 *TP 

AKS=8710 . OitEXP (-35700' . 0/1 . 9S6/TP > 

TAV = CT-KfP>*,5 


- ZB(J- 

- 1.0 
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240 . 

241 . 

242. 

243. 

244. 

245. 

246. 

247. 
24S. 

249. 

250. 

251. 

252. 

253. 

254. 

255. 

256. 

257. 

258. 

259. 

260. 
261. 
262. 

263. 

264. 

265. 

266. 

267. 

268. 

269. 

270. 

271. 

272 . 

273. 

274. 

275. 

276. 

277. 
273. 

279. 

280. 
281, 
282, 

283 . 

284. 

285. 

286. 

287. 

288. 

289. 

290. 

291 . 

292. 

293. 

294. 

295. 

296. 

297. 

298. 

299. 


D=4.26*( r AO/ 1 300 . >t*t.75/P 

C0ND=0.632E-S*SQRT(TAU>/ ( 1 .+245 .7TAV*T0 .**<-l2,/TAV> ) 

Z = 2500. * EXP(-12400./1 .986/TAV) 

IF (DC . LE. 0.0051 PHI =: ( 2 . *Z+1 . 1 / ( Z+l . ) 

IF (DC .GT. 0.005 ’.AND, DC .LE. 0.10) PHI ■= 1 . / ( Z+l . ) * ( ( 2 . *Z+1 . ) 

* - Z% i DC-0 .005)70. 095 > 

IF (DC .GT. 0.10) PHI = 1.0 
Q = 7900 . 0# (2 » /PHI-1 ) +2340 . 0* ( 2 . — 2 • /PHI ) 

AKF=24.*PHI*D/(BC*RG*TAV> 

Al\R=<RG*TAV/MC)/(l ,/AK.S+l ,/AKF) 

RHS a AKR*P*Y02*MC*Q/(R8)KTAV) - EM*SIGM*(TP##4-T*#4> 

ETS a TP - T - RHS*DC/<2.0*COND) 

CALL CRRECT < I » INDX 7 DTS f TP1 , TP2 t TP 7 El 7 E2 7 ETS , ETSMAX ) 

IF (INDX.EB.2) GO TO 110 
100 CONTINUE 

WRITE ( 6 » 4000) 

4000 FORMAT ('0'7l0X,'TP CALCULATION HAS NOT CONVERGED. S .NO. =4000 ' , /) 
110 CONTINUE 

TB = RH0CCH*RG*TAV*DC**2 / (96.*PHI4D*P*Y02) 

RKI = l./TB 

RETURN 

END 

SUBROUTINE CRRECT < I k INDX 7 BX 7 XI j X2 7 XNEW t El »E2f E» EMAX ) 

C It NUMBER OF THIS TRIAL> 1 FOR FIRST TRIAL 
C -INDX: INDEX OF THE TRIAL LEVEL 

C INDX=OJ JUST PROCEEDING 

C INBX—1 f. THE ROOT HAS BEEN CAUGHT BETWEEN XI AND X2 

C INDX=2t THE ITERATION HAS CONVERGED 

IF (ABS(E) .GT.EMAX) GO TO 5 
INDX=2 
RETURN 
5 CONTINUE 

IF ( INDX.EQ . 1 ) GO TO 100 

X2-XNEU 

E2=E 

IF(I.EQ.l) GO TO 10 
IF(E1*E2.LE.0.)INDX=1 
IF (INDX.EQ. 1)G0 TO 150 
10 X1=X2 
E1=E2 

XNEW=XNEW+DX 
RETURN 
100 CONTINUE 

IF(El*E.LT.O. ) GO TO 110 
E1-=E 
Xi=XN£U 
GO TO 150 
110 E2=E 

X2=XNEU 
150 CONTINUE 

XNEU= ( X1-X2 ) *E2/ ( E2-E1 ) +X2 

RETURN 

END 

SUBROUTINE DESIGN - 

COMMON /A/ ZHE(30) rAHE(30 ) fBTUB£(30) jPV(30) 7 PH (30) >ZB(30 ) r 
1ATBI30) »UMF (30) » DVB (30) »DVBEFF(30) »UTA(30) »UTC(30) , 

2EMF » RG , G r PI^ HLMF t hiLF • PAV t TAV t FhO , RHOCH • RHOBED r DZAV r VMF » XAV , ETCC 7 
3BPSVB 7 OPWMB '7 DCSVB . DCWMB » UO 7 nG AS • MTU 
COMMON /C/ DIA (30 ) «FRACTA(30) 7 FRACTC (30 ) 7 DP ( 30 ) t FRC(30) *FRA(3C ’ . 

. 1UF < 30 ) , G1 (30) 7 02(30) 7 BB( 30) 7 RKI (30) 70(30) » E ( 30)7 ENTA ( 30 ) 7 El.UA ( 30 1 . 


ORIGINAL PAGE IS 
OF POOR QUALITY 
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300 . 

301. 

302. 

303. 

304.. 
305. 
303. 

307. 

308. 

309. 
3;10.~. 
311 . 
312'. 
313;.. 
314 . 
31 S . 
31*6 
317 . 
313 . 
3:19. 
3.20.', 

321. 

322. 

323. 

324. 

325. 

326. 

327 

328 

329. 

330. 

331. 
332‘. 

333.. 

334.. 
335 . 
3 36. 

337. 

338. 

339. 

340. 
341 . 

342. 

343. 

344. 

345. 

346. 

347. 

348. 
349 . 
350'. 
351 , 

352. 

353. 

354. 

355. 
356 . 

357. 

358. 

359. 


C 

c 

c 


c 

c 

c 

c 

c 

c 

€ 

C 

c 


100 ' 


30 

40- 

20 

50 


2ENTC ( 30 ,.30) j.FRAEN < 30 > , FRAEL v 30 ) ,CU(30j , 

3PFA < 30 ) , GFLQW., UCQAL , WAD , UB . WBC , UELUA , CELU , EFF , XC „XCF * 
4XA , XW , RCHAR , CCHAR » UD IS ,.RH0AB , TUHC , HFB ? NDP 
DIMENSION. IARR(30) 

AX-IAL VARIATION Of BED CROSS SECTION 
READ, <5, 1000;)- Al ; , A2*A3,A4 

REAR (-5, 1.001), MTB, CZB< J) , ATS!.!) , J = 1». MTB), 


I-ARRNG 1 2. 3 

1 — VERTICAL INLINE ARRANGEMENT 

2 VERTICAL STAGGERED ARRANGEMENT 

3; HORIZONTAL INLINE ARRANGEMENT 

4 HORIZONTAL STAGGERED- ARRANGEMENT 


HEAT EXCHANGE TUBES. 

READ- (5, » 10,02) MTHE (ZHEOJ.+l) rAHE< J,)'»-DTUBE( J.).».PVX'JV»PhKJ) » 

1 lARRCJ.)*,. J = 1 ».MTHE’)- 

DO 100, J = 1, MINE 
IF (AHEI J.) ..ST 0.. 0)- GO, TO; 100 
If <DTUBECJ.) .EG. 0..0)- G0 J TOs 100- 
AHE< J) = f<I- *, DTUBE'IJ;) / IPtfX Ji).*PW JO). 

CONTINUE 

WRITE (6 ,200.0 )> Al, A2,.A3>.A4 
WRITE (6».2001 ) 

WRITE ( 6,2002 ) < Z'BXJ;).,, AXBTJT, J; =• I , MTBi) 

WRITE (6,200,3;) 

WRITE (6 , 200.4.) <-ZHE( J+l) », AHE ( J) , BTUBE ( J ) ,.P V-( J ) r PHI J )-,.IARR < J > , 
1J = 1,-fTHE) 

Zl> a ZB,( 1 ) 

ABEB1 =• ATBX1) 

BJJE-B1 = SORT (4.0 * ABED! /• P-I> 

DyB(l) = 0*. 0 
D()BEFF ( 1 ) =0.0 
2HEC1 ) — 0.0 
DZAV =- 3‘0-* 1 0, 

Ni =. IFIX < ZB ( MTB) /BZAVO 

DO. 10 I = 1 ,N 


Z2- ~ Zl + DZAV- 

DO 20 J = 1 ,MTHE 

IF < ZHE(J) ,LE. 2 > 1 ' -AND-. ZHECJ+1) .GE. Z2 ) GO TO 30 

IF ( ZHE ( J.) .LE. Z2- .AND. ZHE'(J+1) .LT. Z2 ) GO TO 20 

El = < Z2 - Z-HEtJ) ) / DZAV 

F2- = < ZHECJ) - m ) / DZAV 

AH- = FI *- AHE < J )- * F2 * AHE(J-l) 

DI-AT = FI * DTUBE(J) 4 F2 *, DTUBE(J-l) 

GO TO- 40 " 


AH = AHE ( J) 

Cl AT - DTUBE(J-) 

CONTINUE 
GO TO 50 

CONTINUE 

CONTINUE 

CALL AREA ( Z2,.DBED , ABE-D ) 

DVB ( 1+1 ) = 0.5 *, (ABED4ABED1 ) * DZAV 
DVBEFF < I+.1 ) = DVBII'-Kl* ) % <1.0 - 0..25 * AH * DIAT) 
Zl = Z2 
ABED1 = ABED 
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360. 

361. 

362. 

363 . 

364. 

365. 

366. 

367. 

368. 

369. 

370. 

371. 

372. 

373. 

374. 

375. 

376. 

377. 

378. 

379. 

380. 
391. 
382. 
393. 
384. 
395. 

386. 

387. 

388. 

389. 

390. 

391 . 

392. 

393. 

394. 

395. 

396. 

397. 

398. 

399. 

400. 
401 . 

402. 

403. 

404. 

405. 

406. 

407. 

408. 

409. 

410. 

411 . 

412. 

413. 

414. 
J 15. 

416. 

417. 

418. 

419. 


CONTINUE 


FORMAT (I1/<5F10 .0*110) ) 

( ' 1 ' , 20X,4A4,//> 

FORMAT K0',T41, 'HT. ABOVE DISTRIBUTOR, CM ' , TBl »' CROSS SECTIONAL 
BED, SQ.CM.' ,/> 

FORMAT (T49tF8»4tT96>F10«3) 

( 'O' ,T6» 'HEIGHT, CM' ,T20, 'SP. HEAT TRANS ..AREA , SQ .CM/CU . CM' 
1 T58 , ' DIA .OF TUBES \CM ' , T78 , ' VER . PITCH r CM' , T95 , ; HOR, PITCH, CM' , 

. 2T113r 'TUBES AftRNGi' »/) 

2004 FORMAT (TB, F6 , 2, T33,F8 , 4, T62f F6.3,T82 j F6.3,T99 ,F6.3,T113, 12 > 
RETURN ; 

END 

SUBROUTINE ELUT 


10 


1000 

FORMAT 

1001 

FORMAT 

1002 

FORMAT 

2000 

FORMAT 

2001 

FORMAT 


1 'AREA l 

2002 

FORMAT 

2003 

FORMAT 


C 

C THIS SUBROUTINE PERFORMS THE ENTRAINMENT AND ELUTRIATION CALCULATION 

C USINS THE MASS BALANCE FOR EACH SIZE FRACTION OF THE PARTICLES 
C 


REAL MGAS 

COMMON /A/ ZHE ( 30 ) , AHE { 30 ) , BTUBE (30 ) , PV< 30 ) ,PH(30) , ZB < 30 ) , 

1ATB ( 30 ) , UMF < 30 ) , BOB < 30 ) ,BYBEFF(30> , U FA ( 30 ) , UTC ( 30 > , 

2EMF , RGr G , PI , HLMF, HLF r PAV , TAV > FMO , RHOCH , RHOBED r BZAY , YMF r X A 9 , ETCC , 
3DPSVB , BPWMB ,DCSVB , DCWMB , UO , MGAS , MTB 
COMMON /C/ DIA<30) ,FRACTA ( 30 > , FRACTC ( 30 > , BP < 30 ) ,FRC<30) ,FRA(30> , 
1WF<30> ,01(30) ,02(30) ,BB(30) ,RM( 30) »U(30> »E(30) ,£NTA<30) ,£LUA<30> , 
2ENTC C 30 1 30 > t FR AEN ( 30 > , FRAEL < 30 ) , CU ( 30 ) t 
3PFA ( 30 ) , GFLQU , UCOAL , WAD , UB , UBC , WELUA . CELU , EFF . XC , XCF , 

4XA , XU , RCHAR t CCHAR,UDIS , RHOAD, TDHCrHFB , NBP 
DIMENSION FFI(-30> ,R(30) ,FO(30) ,HBC30) ,DPSE(30) .DPWE(30> -DCSE(30) , 
1DCWE<30 ) « DCE(30> 30 ) ,FCE(30 r 30) ,WEA (30) t WEC(30> 

IF (HLMF ,GT. 0.0) GO TO 1 
HLMF => O.S#HLF 
YMF = YOLUME (HLMF) 

UB = YMF*(i.-EMF)*RHGBEB 
1 CONTINUE 

UTF = WCQAL*XA F UAB*RHOBED/RHOAB 

BB ( 1 > = 0.0 

BB(NDP) =0.0 

DO 25 I = 2,NHP 

FFI(I) = 0.0 

IF ( DP ( I ) ,LT. 0.0125 .AND. DP(I) .GE. 0.00*3) FFKI) = 0.2 
IF ( DP ( I ) .LT. 0.0063 .AND. DP(I> .GE. 0.0031) FFKI) = 0.2 
IF ( DP ( I ) ,LT , 0.0031) FFKI) = 0.6 
25 CONTINUE 

FU = 0,075 
FSW =0,1 
PI = 0.0 
P2 = 0.0 

IF (HLF .EG. 0.0) HLF = 2.0*HLMF 
HT = HLF 

CALL AREA ( HT > DT , CSAREA ) 

RHQGAS = PAY*MGAS/RG/TAV 
YISC = 3 * 72£-6*TAY*#0 .676 
UO = GFLOU/CSAREA/RHOGAS 

TDH = 0 ,429*00**1 ,2*( 11 ,43-1 ,2*ALOG(UO) ) 

TDHC = TDH 

HFB = ZB (MTB) -HLF TO 

IF (TDH .GT. HFB) TDH = HFB ORIGINAL PAGE ±3 

11 “ ' ■ ■’* OF POOR QUALE® 
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420 . 

421 . 

422. 

423. 
424'. 

425.. 
426. 
422. 
42S. 
429 „ 
430. 

431.. 

432. 

433. 

434. 

435 . 
436 . 

437.. 

438. 

439 . 
440‘. 

441 .. 
442’. 

443.. 

444.. 

445.. 

446.. 

447. 

448. 

449.. 

450 „ 

451 * 

452. 

453. 
454 . 

455.. 
453. 
457. 

458.. . 

459.. 

460. 

461. 

462. 

463. 

464. 

465. 

466. 

467. 
468 . 
469. 

470.. 

471. 

472. 

473. 

474. 

475. 

476. 

477. 

478. 

479. 


CALL UELC UISCrRHOGAS >G> RHOBED » DP < I ) >UMF( I )'.UTA( i > ) 

UIF (I ) = FRACTAC I KTUAB^RHOBEB/RHOAO + FRACTCX I)*WCOAL*XA' 

FRA ( I ) = 10F < I ) /UTF 
Ql' < I ) = 0.0 
Q2CI) = O’. O' 

10, CONTINUE 

C WRITE 1 6 r 11' ) C I» UTA (I)r UMF Cl). 1=1 . NDP ) 

C 11 FORMAT ( '0' r5X> 'Tr UTAi/UMF =■ ' , T5 1 1P2E12 . 3 > 

WDIS =’ 0,01 • 

C 

C RK REPRESENTS- THE ATTRITION RATE CONSTANT AND IS ASSUMED TO BE T HE 

C FOR LIMESTONE/ ASH r AND CHAR PARTICLES 

C 

RK = 0. 003/3600, /30. 48 
EUB. - 0.02*UB 
BWDIS = 0.3*WTF 
INDEX = 0 

wm = o.O‘ 

DO 30- L = 1/ 100 
12 CONTINUE 

SUMA = 0. O' 

Di 5 1 = 2>NBP- 

IF < CUTAC.D-UQ) .LT,- 0,2#U0) FRA< I") = O'. O' 

SUMA = SUMA- + FRA< I) 

5 CONTINUE 

BO 15 I =*■ 1/NDP 
FRAd)- = FRA ( I ) /SUMA 
15 CONTINUE 

WB.C = 0.0 
DO 40 I = 2/NDP 
BBd) = FRACI)*UB 
RCI) = 0.0 
DIFF = UO-UMF(I) 

PFACI) = FFr(T)*RK*OIFF*WB 

IF CFRACI) .EQ. 0;,0.,) G.0’ TO' 55 

CUd) = 1.0 

BO, 45 K = 2/ NOP 

CU,(K) = CLK'K-1)’ — > FRATK)* 

45 CONTINUE 

IF (,UMF Cl )'■ ,GE. UO )' BIFF =• 0/.0 

UXI) = <UFd)+PFA.d)+W,C 1-1 )•)* (BPd+1 ) /DP Cl ) >**3 

BR = OKI >;*d. -PI )+02 (,%) #-< i .-Ql ( I) > * < 1 . -P2 > + C 1 . -G1 d ) > * < 1 . -02 ( I ) ) 
IP < UMF ( I ) .G£„ UOO GO TO- 56- 

ARG- = -i0..4*SGRTCUTAd>/U,0)*<UMFd)/DIFF)**Q,25 
E(D =• < 18. 0#EXP C ARG )•) *GFLOW 

FOCI) = BIFF*CSAREA*FW*FS.W*<1 . -EMF ) *RHOBEB*FRA C I ) 

RCI) = FOCI) *EXPC TDHC/275.0*AL0G(E( I )*FRA< I ),/FQ( I ) ) ) 

56 CONTINUE 

ANR = WF(I)+PFA(T)+WCI-1) 

1-WCI) -RK*BIFF*UB*FRA ( I ) *CU,< I-l)-R(I) *BR 
IF (ANR . GT . 0,0.) GO TO 1 57 
FRA(I) = FRA<T)'*O..S. 

GO. TO 12 

57 CONTINUE 

BBC I) = UB*ANR/UBIS 
55 CONTINUE 

WBC = WBC + BBT, I) 

C WRITE(6»110)I> FRA (,!)'». ANR /,£ d ) / BB.C I > / WF Cl > » WC I ) » CUC I ) 

C110 FORMAT <2X/ d r FRA ,ANR/£ ,BB / UF. W ,CU = ' 1 12 r 1P7E11 . 3 )• 

40 CONTINUE 
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480. 
431 . 

482. 

483. 
434. 
485. 
436 . 

487. 

488. 

489. 

490. 

491. 

492. 

493. 

494 . 

495. 

496. 

497. 

498. 

499. 

500. 
501 . 

502. 

503. 

504. 

505. 

506. 

507. 

508. 

509. 

510. 

511. 

512. 
'513. 

514. 

515. 

516. 

517. 

518. 

519. 

520. 

521. 

522. 

523. 

524. 

525. 

526. 

527. 
526. 

529. 

530. 

531 . 

532. 

533. 

534. 

535. 

536. 

537. 

538. 

539. 


C 

cm 


60 

30 

70 

C 

c 

c 

c 


300 


310 

c 

c 

c 


340 


350 


360 


370 


WRITE (6, 111) L i UB » UBC t WD IS 

FORMAT ( 'O' >5X» 'L»WB>WBC.WDIS = ' ■ I2j 1P3E12 . 3) 

ERR = WBC-UB 

CALL CRRECT (L ; INDEX f DldDI S * XT? X2 j WDIS f El ’ E2/ ERRrEWB ) 

IF (WDIS .LT. 0.0) WBIS = 0.0 

IF C INDEX .EQ. 2) GO TO 70 

DO 60 I = 1>NDP 

FRA< I ) = BB ( I )/UBC 

CONTINUE 

CONTINUE 

CONTINUE 

USING THE GAS REYNOLDS NUMBER t PECLET NUMBER- IS CALCULATED 
AND HENCE THE GAS DISPERSION COEFFICIENT AND THE NO. OF 
COMPARTMENTS IN THE FREEBOARD- AND THE AVERAGE COMPARTMENT SIZE 

REY = DT*UO*RHOGAS/UISC 
IF.IREY .LT. 2000.0) GO TO 300' 

PECI = 3.E7/REY**2.1 t 1 ,35/R£Y**0, 125 
GO TO 310 

D = 4.26*(TAV/1800.0>#*1 , 75/PAV 

SC = VISC/RHOGAS/D 

PECI = 1,/REY/SC + REY*SC/192. 

EZ =» UO*DT#PECI 
DZ = 2.0*EZ/U0 

SOLIDS ENTRAINMENT RATE ALONG THE FREEBOARD IS CALCULATED 

HB < 1 ) = 0.0 
DO 320 K = 1 j30 

IF (N.GT.l) HB (K) = HB(K-l) + .DZ 
IF (HBCK) .GE. TDH) HB(K) = TDH 
DO 340 I = 2 rNBP 
R< I ) = 0.0. 

DIFF = UO - UMF(I) 

IF (FRA(I) .£0. 0.0) GO TO 340 
IF CUMF(I) .GE. UO) GO TO 340 

ARG = -1Q.4*SGRT<UTA<I>/U0)*(UMF<I)/BIFF')**0.25 
E < I ) = 18.0*EXP<ARG)*GFLQW 

FO ( I ) = DIFF*CSAREA*FW#FSU*C1 . -EMF ) *RHOBEB*FRA < I > 

R < I > = F0( I >*EXP<HB<K)/275 . 0*ALQG<E{ I >TFRA i I >/F0< 15)) 

CONTINUE 
WENT A = 0.0 
DO 350 I = 2f NDP 
ENTA(I) = R ( I ) 

IF CFRA<I> .EQ. 0.0 .AND. UO .GT, 0.833#UTA ( I )•) 

1 ENT A 1 1 ) * WF < I ) + PFA< I ) 

WENTA = WENT A + ENTA(I) 

CONTINUE 

WEACK) = WENTA 

DO 360 I = 2 1 NDP 

FRAEN(I) = ENTA< D/WENT A 

IF (FRAEN<I) , LT . l.E-3) FRAEN(I) = 0.0 

CONTINUE 

SUMA =0.0 

SUMS = 0.0 


ORIGINAL PAGE t§ 
OF POOR QUALm: 


SUMA = SUMA + FRAEN < I ) /DP ( I ) 
SUMB = SUMB + FRAEN < I ) *DP < I ) 
CONTINUE 

DPSE(N) = 1 . /SUMA 
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540, 


OPWE(K) = SUMP 

541. 


IF CHB(N) .EG.- T.BH) GO TO 380 

5-42. 

320 

■CONTINUE 

'543 , 

380 

-NT a R 

.544 * 


UEL'UA = 0.0 

■545. 


DO -80 I = 2»NBP 

546. 


ELUA(I) = (1 .-Ql<I)'>*a,.-G2U>>*ENTA< I) 

547. 


WELUA = WELUA + ELUA(I) 

543. 

80 

CONTINUE 

549. 


‘DO 90 1 = 2 »NDP 

550. 


FRAEL< I > = ELUA < I >yU£LUA 

551. 


IF (FRAEL(I) .LT. l.E-3) FRAEL<I) = 0.0 

552, 

90 

CONTINUE 

553. 


SUMA = 0.0 

554. 


SUMB =0.0 

555, 


SUMC = 0.0 

556. 


SUMB = 0.0 

557. 


DO 100 l. - 2,NDP 

558. 


SUMA = DP(I)#FRACI>TSUMA 

559. 


SUMB = FRAU)/BPM>+SUMB 

S60. 


SUMC = DP<T')*FRA£N<I)+3UMC 

561 . 


SUMB = FRAEN<I)/BP(I)+SUMD 

562. 

100 

CONTINUE 

563. 


DPSVB = 1/SUMB 

564. 


BPWMB = SUMA 

563, 


BPSVE = 1 ./SUMB 

566. 


DPWME = SUMC 

567, 


WRITE (6,101) WDISrWTF t WELUA i DPSVB , BPWMB i 

568. 


1(BP(I),FRA(I),FRAEL(I) ,I=2,NDP) 

569. 

101 

FORMAT < '0' rTIO, 'WIUS,WTF , WELUA , DPSVB, OPWMB = 

570. 


15F9 .55/ , '0' ,T10, 'P.AR.DIA. ,CM' ,T30, ''BED SIZE FRACTION' , T60 

571 . 


2SIZE FRACTION' '0' , ( T10 , 1PE10 .3,T33» 1PE10.3,T63, 1PE10.3 

572. 

C 

( 

573. 

C 


574, 

C 

SIMILAR ENTRAINMENT CALCULATIONS ARE PERFORMED FOR CHAR 

575. 

c 


576. 


DO 210 I = lrNDP 

577, 


WF( I > = FRACTC ( I ) TWCQAL 

573. 


FRC < I > = FRACTC ( I ) 

579. 


CALL VEL (VI SC,RH0GA5»G ,RHQCH »DP< I ) , UhF< I ) , U IC ( I > ) 

580. 

210 

CONTINUE 

581 , 


ETCA » 0.9995 

582. 


IND = 0 

533 . 


DETC = -0.001 

584 . 


EETC = 0.001 

585 , 


CENT =0.0 

586. 


DO 200 L = 1,30 

587. 

211 

CONTINUE 

588. 


SUMA =0,0 

589. 


DO 150 I = 2,NDP 

590. 


IF ((UTCCI)-UO) .LT . 0.2*U0) FRC(I) = 0.0 

591 . 


SUMA = SUMA f FRCCI) 

592. 

150 

CONTINUE 

593. 


DO 160 I = 1 » NDF 1 

594. 


FRC ( I ) a FRC ( I ) /SUMA 

595. 

160 

CONTINUE 

596. 


XAV = ( <WCOAL*RCHAR-C£NT>*CCHAR"fc< 1 .-ETCA ) )/WB18 

597. 


CBED = XAV*UBC/CCHAR 

593. 


CELU =0.0 

399. 


CENT =0.0 


ELUT. 
) ) 
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600. 
601 . 
602. 

603. 

604. 

605. 
606 . 
607 . 
60S. 

609. 

610. 
611. 
612. 

613. 

614. 

615. 

616. 
617. 
615. 

619. 

620 , 
621. 
622. 

623. 

624. 

625. 

626. 

627 . 

628. 
629 . 
630 . 

631 * 

632 . 

633. 

634 . 

635. 

63 6. 

637 . 
638 V 

639. 

640. 

641. 

642. 

643. 

644. 

645. 

646. 

647. 

648. 

649. 

650 . 

651. 

652. 

653. 

654. 

655. 
656 ♦ 

657. 

658. 

659. 


2S2 


250 


255 


175 

256 

C 

C170 

220 


410 

415 


400 

C 

C 

c 

c 

c 


430 


CBEBC =0.0 
00 220 I = 2.MDP 
BBC I) = FRC(I)*CBED 
R(I-) = 0.0 
BIFF = UO-UMFCI) 

PFAC I ) = FFI(I)*RK*BIFF*CBEB/CCHAft 
FSC * 0.01 

IF (FRC(I) . EQ . 0.0) GO TO 256 
BO 252 K = 2? NBP 
CUCK) = CU(K-l)-FRCCk) 

IF (UHFCI) .GE. UO) BIFF = 0,0 

W<I> = (WF<I)+PFAU )+W(I-l ) >*<DP<I+1)/BP(I> >**3 

BR = Q1 ( I) *< 1. -Pi ) 402 < I > * U . -Qi < I > ) * ( 1 , -P2 )+fcl . -Q J. Cl > > * < 1 . -02C I ) ) 
IF CUMFCI) ,GE, UO) GO TO 255 

ARG = -10.4>KSGRT( UTC ( I )/U0 i # ( UMF ( I ) /BIFF) . 25 
EC I) = Ci8,0*EXPCARG)>*GFL0W 

FOCI) = OrFF*CSAREA*Fld#FSW*(l.-EWF)*RHOBED*XAV*FRC(I) 

R ( I ) = F0CI)*EXPCTBHC/275.0*ALQG(E(I)*FRC(I)/FOCI>)) 

CONTINUE 
Y02 « 6.15 

RHOCCH = RHOCH*CCHAR 

CALL ATTRC RHOCCH r TAOrDPC-I) r PAG r YQ2 » RG f TB >RKICI) )' 

ANR =• UFC I ) 4PFA ( I ) 4WC I-D— WCI) 

1-RK*DIFF#CBED*FRC(I )*CU( 1-1 )-RKI ( r)*CBED*FRCCI) *FSC-R( I)*DR 
IF (ANR .GT. 0.0) GO TO 175 
FRCCI) = FRC ( I ) *0 .5 
GO TO 211 
CONTINUE 

BBC I) = UB*ANR/WDIS 
CONTINUE 

CBEBC = CBEBC + BBC I) 

WRITE ( 6 / 170 ) I > FRC Cl) .ANRjECI) rBBC I) >«<•!) t UF C I ) r RKI C I ) 

FORMAT (2X> ' I f FRA r ANR f E* BB»U» WF j RKI = ' r 12* 1P7E11 .3) 

CONTINUE 

DO 400 I ~ 2 r NBP 
DIFF = UO - UMF ( I ) 

IF (FRCCI) .EQ. 0.0) GO TO 410 

IF CUMFCI) .GE. UO) GO TO 410 ... 

ARG = -10.4*SGRTCUTC(I)/UO)*<UMF(I)/DIFF)**0.25 
E ( I ) = 18.0*£XP(ARG)*GFL0U 

FOCI) = CSAREA#DIFF#FW*FSW*(1.-EMF>*RH08EB#XAU*FRC(I) 

GO TO 415 
FOCI) =.0.0 
ENTCC'l r'l ) = FOCI) 

IF (FRCCI) . EQ « 0.0 .AND. UO .GT. 0 .833*UTC( I ) ) ENTC(1»I) = WFCD* 
1RCHAR + PFACI) . . .1 

CENT = CENT 4 ENTCClrl) 

CONTINUE 

CHAR ENTRAINMENT RATE AS A FUNCTION OF THE FREEBOARD HEIGHT IS 
CALCULATED TAKING INTO ACCOUNT THE DECREASING PARTICLE SIZE DUE 10 
CHAR COMBUSTION 


UECC1) = CENT 
DO 430 I = 2»NBP 
DCEC 1 r I ) = DP ( I ) 

FCECl.I) = ENTCC 1,1) /CENT 
CONTINUE 
DO 420 J = 2f KT 
CENT =0.0 


<****<$? 


m 
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•50 0. 


iiO 440 I = 2 . NQP 

66 1 * 


IF ( BCE ( J~1 r L) , G.T , Q-.0) GO TC 435 

662. 


RT =■ 1.E6 

563, 


TB = 0.0 

664 . 


60 TO 436, 

665 . 

435 

CONTINUE 

6,66. 


CALL UEL( VISC jRHOGAS t G*RHOCH»DCE( J-l r L) ,UMF( I ) . UTC ( I ) ) 

667. 


HT = HLF + HB( J) 

66(3. 


CALL AREA (HT »D.T jCSAREA) 

6 69. . 


UAU. - GFLOW/CSAREA/RHOGAS 

670 . 


RT = CHB (3 >— HB ( J-l ))/ABS (UAO-UTCC I ) ) 

67i . 


Y02 = 0.09 

672. 


CALL A-TTR (RHOCCH t TAO , DCE( J-l > I > , PAO , Y02- RG ,TB , RKI < t ) ) 

673. 


IF (TB .G T .RT) DCE(J.I) = C 1 .-RT/TB > **0 . 5*DCE ( J-l . I > 

o74„ 

436 

CONTINUE 

675, 


IF (TB ,LE. RT) DCE(JjI) = 0,0 

676. 


IF (BCE(Jrl) ,GT. 0.0) GO. TO 437 

677. 


ENTC(J>I) = 0.0 

6.78, 


GO, TO 433 

679. 

437 

CONTINUE 

680. 


CALL U£L( VISCr RMQGASf GrRHQCHf DCE( J ,l)i L'HF ( I ) . UTC( ') 

681. 


IF (FRC(I) .GT. O.Q- ..AND.. U.TC(I) .6". JO) GO TG 439 

682. 


CONO .= 1 , 

683. 


IF (TB ,GT, RT) CONV = 1,- < 1 . -RT/T5 ) **1 .5 

684. 


ENTC(J.I) = ENTEC J-1.,I>)!<(1 ,-CONO). 

685,. 


GO TO 438 

63 6 . 

439 

CONTINUE 

687, 


CALL VEL (VISC , RHQGAS t G r RHQCH« BP ( D r UMF ( I > r UTC ( I ) ) 

638. 


RT = HB(J)/ABS(UO-UTC(I) ) 

689. 


DIFF = UO-UMF(I) 

690. 


IF (UMF(I) ,GE. UO) GO' TO- 431 

6,91. 


ARG = -10.4*SaRT(UTC(I)/UO,)*(UMF(I)/DIFFM:*0,.25 

6.92. 


E(.I) = 18.0!((EXP(ARG) tfGFLOW 

6.93 . 


IF (FO(I) .GT. 0..0,) R ( I )• = FO(I)*EXP<hB( J)/27S.0*ALGG(E(I>* 

694. 


1FRC(I)/Fa(l) ) ) 

695. 


eoNv = 1.0 

696, 


IF (TB .GT. RT) CONV = 1 , - ( 1 . -RT/T8 ) **1 . 5 

697. 


R(I)=R(I)#.C1 ,-CONV) 

693. 


GO TO 432 

699, 

431 

R ( I ) = 0,0 

700. 

432 

ENTC(Jrl) = R( I ) 

701. 

438 

CONTINUE 

7C2 , 


CENT = CENT' + ENTC(J,I) 

703. 

440 

CONTINUE 

704. 


WEC(J) = CENT 

70S. 


DO: 450 I = 2.NDP 

706. 


IF (CENT .GT. o.O) FCE(J.»I) = ENTC( J. I )/CENT 

707. 


IF (CENT .Efl, 0.0) FCE(Jrl) = 0.0 

708. 

450: 

CONTINUE 

70.9-. 

C 

WRITE ( 6 f 190 ) CELU , CENT * DCSUB r DCWMB *. (DR ( I > » FRC (I ) , DCE <. J , I ) , FOE ( w , I ) , 

710, 

C 

1I=2.ND P) 

711. 

420 

CONTINUE 

712, 


DO 460 Is = l.KT 

713, 


SUMA = 0.0 

714. 


SUMS = 0.0 

745. 


DO 470 I = 2 j NDF’ 

716, 

. 

IF (DCECK.I) , G.T. 0.00 SUMA = SUMA 9 FCE(!s, I )/BCE(K» I > 

717. 


SUNS = SUMB + FCE(N, I).YDCE(K.I) 

718. 

470 

CONTINUE 

719. 


DCS£(K) = 0.0 
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720. 

721. 

722. 

723. 

724. 

725. 

726. 

727. 

728. 

729. 

730. 
731 . 

732. 

733. 

734. 

735. 

736. 

737. 

738. 

739. 

740. 

741 . 

742. 

743. 
744 . 

745. 

746. 

747. 

748. 

749. 

750. 
751 . 

752. 

753. 

754. 

755. 

756. 

757. 

758. 

759. 

760. 

761. 

762. 

763. 

764. 

765. 

766. 

767. 

768. 

769. 

770. 

771. 

772. 

773. 

774. 

775. 

776. 

777. 

778. 

779. 


IF ( SUMA .ST. 0.0) DCSECK) = 1,/SUMA 
DCUE(N) = SUMB 
460 CONTINUE 

CELU => UECU\T> 

ETCC = 1.* WBIS*XAU/< ( WCOAL*RCHAR-CENT ) *CCHAR ) 

XAV = < <UC0AL*RCHAR-CENT)*CCHAR*<1 .-ETCC) )/WOIS 
C WRITE ( 6 t 180 ) L > CBED > CBEDC r XAV > ETC A » ETCC > CELU » CENT 

C1S0 FORMAT < ' 0 2X »' L*CBEB»CBEDC t XAV t ETCA» ETCC , CELU »CENT = 'tllr 
C 11P7E12.3) 

ERR = ETC A - ETCC 

- CALL CRRECT (L> IND»DETC»X1fX2» ETCAjEIj E2*ERR»EETC) 

IF (IND .EQ. 2) GO TO 230 
DO 240 I = 2r NBP 
FRC(I) = BB( I )/CBEDC 
240 CONTINUE 
200 CONTINUE 
230 CONTINUE 

SUMA = 0.0 
SUMB =0.0 
DO 270 I = 2i>NDP 
SUMA = DP(I)*FRC(I) + SUMA 
SUMB = FRC ( I ) /BP ( I ) + SUMB 
270 CONTINUE 

BCSUB = 1 ./SUMB 
BCWMB = SUMA 

EFF = l.-(UIDIS*XAV+CELU*CCHAR)/(WCOAL*(l.--XU>*XC) 

WRITE < 6 > 190 ) CELU f CENT t DCSVB .BCWMB t < DP < I ) »FRC ( I ) > BCE<KT > I > r 
1FCE< KT » I ) » 1=2 f NBP) 

WRITE (6? 390) (N,HBCK) rDPSE(K) rBPUE<|\) ,W£A<K> rK=l»NT> 

WRITE (4j490) ( K>HB( K ) , DCSE(N ) » BCUE < K ) , W£C(I\ ) • K=1 > NT > 

490 FORMAT < ' 0 ' f 9X > ' R ' > 9X r ' FREEBOARD HT , ' . 9X » ' DCSE ' r 12X » ' DCWE ' • 12X » ' £N 
IT .RATE' j//* ( ?X* 12* 8X> t PE11 .3f8X>lPE11.3f6X»lPE11.3f6XflPE11.3)) 

390 FORMAT ( '0' *9Xr 'K' *9X * 'FREEBOARD HT . ' * 9X r ' DPSE' * 12X f ' BPUE ' * 12X * ' f.N 
IT .RATE ' i // t (9X*I2*8X* 1PE11 . 3 * 8X r IPEll . 3 * 6X* 1PE1 1 . 3 ,6X * 1PE11.3) ) 

190 FORMAT ( '0' *?X* 'CELU* CENT* DCSVB * BCWMB = ' *1P4E12.3*/* 

1 ' 0' * 9X * ' BED PAR.DIA. *CM' *5X> 'BED SIZE FRACTION' *5X* 'ENT. PAR. DIA. r 
2CM' *5X, 'ENT. SIZE FRACTION' */> '0' * ( T10 r.lPEU . 3 * T31 , 1PE1 1 . 3 * T54 » 
31PE11 . 3*T74* 1PE11 .3*/) ) 

RETURN 

END 

SUBROUTINE VEL < VISC * RHQGAS *G . RHQS * DPAR * UM *UT ) 

C 

C THIS SUBROUTINE CALCULATES THE MINIMUM FLUIDIZATION VELOCITY AND 
C THE TERMINAL VELOCITY OF THE PARTICLE 
C 

A1 = 33.7**2+0.0408*DPAR*#3*G*(RHCS-RHGGAS)*RHOGAS/VISC**2 
UM = VISC/<DPAR*RH0GAS>#<SQRT<Al>-33.7> 

UT = ( 4 .Q^CRHGS-RHQGAS) **2*0**2/225. O/RHOGAS/VISC )*#< 1 ./3, >*DPAft 
REP = DPAR*RHQGAS*UT/VISC 

IF CREP .GT, 0.4 .AND. REP .LE. 500.0) GO TO 210 
UT = G*<RH0S-RH0GAS)*DPAR**2/18,/VISC 
REP = BPAR#RHOGAS*UT/VISC 
IF (REP , LE ,0.4) GO TO 210 

UT = SGRT(3.1*G*(RHOS~RHOGAS)*BPAR/RHOGAS) 

210 RETURN 
END 

FUNCTION VOLUME <ZZ) 

COMMON /A/ ZHEC30 ) * AHE(30 > *DTUBE(30) « PU(30 ) *PH< 30) *ZB(30 ■ • 

1ATBC30 ) *UMF (30) f DUB (30) *DVBEFF< 30 ) *UTA (30) »UTC(30 > * 

2EMF *RG *G >PI t HLMF * HLF »PAV » TAVrFMQ* RHOCH * RHOBED * DZAV * UMF , X AV . ETCC > 



96 


780. 

781. - 

782. 

783. 

784. 

785. 

786. 

787. 
783. 
739. 

790. 

791. 

792. 
797. 

794. 

795. 

796. 

797. 

798. 

799. 

800. 
801. 


3DPSVB j UPWMB r DCSVB , HCUMB r UO t MGAS, MTB 
COMMON /C/ BIA<30) ,FRACTA(30> , FRACTCC30) ,DP<30) ,FRC<30) , FRA <30, - 
1WF (30) rdl (30) t Q2 ( 30 ) r BB < 30) ,RKIC30) ,W<30) ,E<30) ,ENTA(30) ,£LUA(30'- . 
2ENTC (30,30) , FRAEN ( 30 ) r FR AEL < 30 ) , CU ( 30 ) , 

3PFA (30 ) , GFLQW , WCGAL r WAD i WB , WBC r WELUA , CELL! r EFF r XC , XCF , 

4XA j X W » RCHAft , CCHAR r WDIS/RHOAB, TDHC , HFB , NDP 
C 

C CALCULATQN OF THE EFFECTIVE VOLUME OF THE BED QIVEN THE HEIGHT 

C 

N = IFIX ( ZZ/BZAV ) FI 
IF (N.EG.l) N = 2 
SOM = 0,0 

ZN = FLOAT <N-i)*BZAV 

DO 100 I = 2 f N 

SUM = SUM + DVBEFF ( I ) 

IF ( I ,LT. N ) GO TO 100 
Ai = < ZZ - ZN ) / DZAV 
SUM = SUM + DVBEFF ( I ) * Al 
100 i CONTINUE 

VOLUME = SUM 
RETURN 
END 
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INPUT TO ELUTRIATION PROGRAM 


l 234567990 1234567890 12345678901 234567890 123456Z890123456789O1234S678901234567S9Q 

41 A2 A3 A4 
NASA LEWIS 1A 
MTB 
4 


ZB(i) 

ATB(l) 

ZB (2) 

ATB(2) 

ZB ( 3) 

ATBC3) 

ZB<4) 

ATB(4 ) 

0,0 

405.0 

62.7 

405.0 

81.3 

670.0 

280.0 

2193.0 

MTHE 

g 








ZHE(2) 

AHE(i) 

DTUBEd) 

PV(-l) 

PH( 1 ) 

IARR(1) 



24,0 

0.0 

0.0 

0.0 

0.0 

0 



ZHE ( 3 ) 

AHE (2) 

DTU8E (2) 

PV ( 2 ) 

PH ( 2 ) 

IARR (2) 



40,0 

0.1744 

1.27 

8.0 

2.86 

3 



ZHE ( 4 ) 

AHE (3) 

DTUBE<3) 

■P0(3) , 

PH<3> 

IARR (3) 



18.0 

0.0 

0.0 

0.0 ' 

0.0 

0 



ZHE(5) 1 

AHE (4) 

DTUBE(4) 

PV ( 4 ) 

PH ( 4 ) 

IARR ( 4 > 



58.0 

0.1744 

1.27 

8.0 

2.86 

3 



ZHE ( 6 ) 

AHE (5) 

DTUBE (5) 

PV<5> 

PH (5 > 

IARR(5) 



280. 0 

0.0 

0.0 

0.0 

0.0 

0 



NDP 

21 








DIAC1) 

DIA ( 2 ) 

DIA (3 ) 

DIA(4) ' 

DIA<5> 

DIA < 6 ) 

DIA < 7 ) 

DIA(8) 

0.283 

0.238 

0.2 

0.168 

0.141 

0.119 

0.1 

0.0841 

0IA(9) 

DIA (10) 

DIA ( 11 ) 

DIAU2) 

DIA (13) 

DIA (14) 

DIA(15) 

DIA( 16) 

0,0707 

0.059 

0.05 

0.042 

0.035 

0 . 0297 

0.0212 

0.0177 

0 IA < 17 ) 

DIA ( 18 ) 

DIA ( 19 ) 

DIA(20) 

DIA (21) 




0,015 

0.010 

0.0074 

0.0045 

0,001 




FRACTA< 1 ) 

FRACTA12) 

FRACTA <35 

FRACTA<4) 

FRACTA (5) 

FRACTA(6> ; 

FRACTA (7) 

FRACTA < 8 > 

0.0 

0.0038 

0.0854 

0,1433 . 

0.1856 

0.1406 

0.1259 

0.1424 

FRACTAL?) 

FRACTA ( 10 ) FRACTA (11) FRACTA ( 12>FRACTA (13) FRACTA ( 14 ) FRACTA < 1 5) FRACTA ( 16 

0.0622 

0.0255 

0.0123 

0.0114 

0.0091 

0.0053 

0.0088 

0.0032 

FRACTA ( 17 ) FRACTA (18) FRACTA (19) FRACTA ( 20 ) FRACTA ( 21 ) 




0.0026 

0.0135 

0.0068 

0.0123, 

0.001 




FRACTC(l) 

FRACTCC2) 

FRACTC(3> 

FRACTC(4) 

FRACTC(S) 

FRACTC ( 6) 1 

FRACTCC7) 

FRACTC (9) 

0,0 

0.013S 

0,0194 

0.0747 

0,15 

0,096 

0.0963 

0.1172 

FRACTC ( 9 ) 

FRACTC ( 1 0 ) FRACTC (11) FRACTC( 1 2 

) FRACTC ( 13 ) FRACTC ( 14 ) FRACTC < 15 ) FRAC .'C < 16 

0,0766 

0.0825 

0.0594 

0.0553 

0.0538 

0.0425 

0.0356 

0 * 0 x o 3 

FRACTC< 17 ) FRACTC C 18 ) FRACTC ( 19 ) FRACTC (20 ) FRACTC (21 ) 




0.0025 

0.0069 

0.0009 

0.0003 

0.0 




NAhELl NAMEL2 







LIMEST13 








XCAQ 

XrtGO 

XSI02 

XCQ2 





0,557 

0.003 

0.008 

0.434 





NAMEC1 NAMEC2 







PTGHCQAL 








XC 

XH 

XN 

XS 

XO 

XW 

XA 

Vh 

0.754 

0.051 

0,015 

0.02 

0.076 

0.022 

0.084 

0*^12 

HLMF 

HLF 

PAV 

TAV 





0.0 

141,9 

5.15 

1151,0 





WCOAL 

WAD 

CAS 

1)0 

FMF 

EXAIR 



4.51 

0.4638 

0.0 

0.0 

0,0 

0.639 
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101 


1 , 

3 . 
4 . 

5 , 

6 . 

7 . 

8, 
9 . 

10 . 

11 . 

12 . 

13 . 

14 , 

15 , 

16 . 
17 , 
IS. 

19 . 

20 , 
21 . 
22 . 

. 23. 

24 . 

25 . 

26 . 

27 . 

28 . 

29 . 

30 . 

31 . 

32 . 

33 . 

34 . 

35 . 

36 . 

37 . 

38 . 

39. 

40 . 

41 . 

42 . 

43 . 

44 . 

45 . 

46 . 

47 . 

48 . 

49 . 

50 . 
51 . 

52 . 

53 . 
54 . 

55 . 

56 . 

57 . 

58 . 

59 . 


■ -Ur 'll/ yl? 'If U* U' U / k> sV ^ Ur vlr Ur \1/ U/ sV vU . 1 / v|r sir \U Ur w u ^ Ur i. W'ir ^ 

ij 'R r^ rR «R rji/p. ^ <R ^ /f, ^^«R4R7R^R^^R/RrR/R^RrR<R^R^R^R<RjR^1s^s^srR^|N7RrR/R/RrRrRV/R JR<R1R!R^JR«R 


C A GENERAL MODEL OF FLUIDIZED BED COAL COMBUSTOR * 
C * 
C PROGRAMMED BY r 
C . * 
c renga rajan * 
c * 

C AT * 
C * 
C WEST VIRGINIA UNIVERSITY * 
C 4 


p Or ^ Uj ^ tb ^ t_U ^ 'if ^ sir |b .1 . kW kb Ur kb K±f Urkb kb klk lb kU kb yb sB yb yb Uk sir kb kb tip kb kb kb kb kO kb sir kb <b Ur Ur ^ kb ^ <b kb kbkb ^ ib kb Uk Ur sir kb kb 

O 'n R ^ rR R R R ^ ^ ^ ^ R ^ rR ^ R ^ 4* * ^ Jp * * rR /R ^ ^ ^ jR ^ ^ R rR rR rR ^ 4* rR ^R ^ 7R /R R .fk ^ R } R R *R R ^ ^ rR ^ R rR rR ^R R R *R R R .R R , n R 

REAL MC j MH2j>MS r M02 r MN2 • MH20 r MS02 r MH2S r hCQ r MC02r MCAC03 j MCA0 r MCASG4 
1 , MMGC03 f MMGG r MAIR r MGAS r MVG AS t MN r NC , NA . MN0 r NCHAR r MTAR 
COMMON /A/ ZHE(10> ,4H£(10' rPV( 10 > r PH < 10) »ZF( 10) rFFC(10) rD TUBE ( 13 J » 
1BVB <60 ) j DOBEFF (60) »FFAD(10) rZDIS(lO) ,FB( 1.0 > , AHEAO(60) «ETUBE(60> r 
2U0 ( 60 ) r UMF ( 60 ) » H < 60) r AT ( 60 ) r DT ( 60 ) , T ( 60 ) r X (60 ) r AKBE(60> ,YB(60) » 

3YE ( 60 ) t YC0E1 60 ) t EPS ( 60 ) , EPC ( 60 ) r DVBB ( 60 ) , DVBBEF ( 60 ) r DBA V (60 ) r 
4UB ( 60 ) j UTC(60 ) ,UTA(60> rZB( 10) r ATB <10 ) r YVE ( 60 ) r ZAVG( 60 ) , IARR(IO) 
COMMON /B/ YBQ ( 60 ) t YEO < 60 ) » DB ( 60 ) , DPSVB « LlpUIHB r DCSVB r DCUMB r RHQCH j 
1HLF jVMFr FMO r FMFr UF t PF r TF . RG r G , MG AS > BPFIX r DPFLU r DPDI S > RHOBED t 
2EMF . P A V . HCR , BEDVOL r EFFVOL.r SOL VOL rTETUBEr HLMF ,PI, AND rDNZLr 
3FUrFSUrDZAVfMFEED»MDISrMTHErMTBfMTrMl»M»ICRrIFBCrNTC 
COMMON /C/ DPSE ( 30 ) rBPUE(30) rDCSE(30) rCCUE C 30 ) r WEA ( 30 ) ,UEC(30) » 

1HB < 30 ) ? UICHOLD ( 30 ) r UAHOLD (30) tKT 
DIMENSION ALFA ( 60 ) rBETA(60) t GAMA ( 60 ) r BELT ( 60 ) r UHE ( 60 ) ,GB(60) r 
lGE(60)rC0B(6O) ,UMIX(60)rUNET(60) r UFC (60) »UFAD(60) rUD<60) r YCC2(60) * 
2TU(60) rYGG<5> >Y0(60) r YCQ( 60 ) i Y V ( 60 ) » YS02 < 60 ) r YNGX ( 60 > , 

3VPR0D(6O) r RELB (60) ,RELE(60) rTF‘B(60) .TPE(60) r CARC0N(60) , 

4RR ( 60 ) » RRB ( 60 ) ,RRE(60> rTQLB(60 ) , AAA (3600) ,BB8(60) «FEM(60) rFBM< 60 ) i 
5YCQ2B ( 60 ) t YC02EC 60 ) t UHEW ( 60 ) r AHEU ( 60 ) , TUALL (60) 

NAMELIST 70PCF/ HLMF rHLFr PAOrTAV r TSTA r TWINr TUQUT . TUALLA r UHEAV1 j 
KUHEAV2 r UWALL1 »UUALL2r TF r TSF» UCDAL r BAD r CAS r EXAIRr MGAS » FMTH r FMF rFMOr 
SH2SV r ANH3 V j RHOCHr RHOBED r RVGAS r RCHAR t OVGAS » QVCO r QCLCN 
K/0PCF1/ ICR r I FBCV NTC t HCR r HLF r HLMF , VMF . BEDVQLr EFFVOL , SOL VOL r TETUBE » 
*HAREA rQTRANS t OVOL » QAREA r HFB > BEDCQM , FBCOM > TCRATE r X02 1 XQ2C 
NAMELIST /0C7 UDIS r UELUA r CELU r EFF , DPSVB r DPWMB r DCSVB r DCUMB r GFLOU , 
1U0 1 CLGSSr CCHAR t HCHAR t OCHAR > NCHAR > SCHAR r TARC 
DATA MC r MH2 r MS > M02 r MN2 r MH20 r MS02 > MH2S r MCO » MC02r MCAC03 r MCAO r MCAS04 
1 j MMGC03 r MMGO r MNO r MN 

1/12. , 2 . r 32 . » 32 . r 28 . » 18 . r 64 . » 34 . r 28 . r 44 . 1 1 00 . 1 r 56 . 08 r 1 36 . 14 , 84 . 32 
2r40.31r30.0rl4,0/ 

DATA AAA r BBB/3660*0 . / r ftHOC t RHO ASH , RHOAD/1 . 4 1 1 , 4 r 2 . 4/ , HAREA r GTRSNS , 
YQVOL r QAREA t RR ( 1 ) r RRB (l)r RRE ( 1 ) /7*0 , 0/ r 
*CADF » CCF i CGMF/O . 1 98 r 0 . 193 r 6 . 79/ 

Ml = 100 
M10LD = Ml 
EMF = 0.5 
RG = 82.05 
G = 980.1 

PI = 3.141593 
ETUBE( 1 )=0. 

EPB ( 1 ) =0 . 

EPC ( 1 ) =0 . 

DBAV ( 1 ) =0 . 

UB ( 1 ) =0 . 

DVBB( 1 )=0 . 

ahea v ( i ) = 0 . . ORIGINAL 
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60 . 
61 . 
62. 

63 . 

64. 

65. 

66 . 

67. 

68 . 

69. 

70. 

71 . 

72. 

73. 

74. 

75. 


C FBC DESIGN DATA 

C 

C INPUT DATA FROM ENTRAINMENT CALCULATIONS 

C 

READ< 5 » 1000 ) KT 

READ (SflOOl) (HBCIO rDPSE(K) fDFUEOO fWEA(K) ? R= 1 rKT) f 
1 (DCSE(K) fDCWECK) f WECCK ) , h=l ,KT) 

READ ( 5 f 100 U UDIS f UELUA f CELU r EFFf DPSUB f DPUMB f OCSVB f BCUMB r 
1DASVF f DAUMF t DCSUF , BCUMF 
CALL DESIGN 

C ■ ' H 

C COMPOSITION OF LIMESTONE 

C - ' 

READ ( 5f 1010 ) NAMEL1 ? NAMEL2 f XCAO f XMGGf XSI 02 / XC02 
C 

C COMPOSITION AND NET HEATING VALUE OF COAL 


76. 

77. 

78. 

79. 

80. 


C 

C 

C 

c 


READ ( 5 , 10 10 ) NAMEC1 1 N AMEC2 f XC r XH > XN t XS f XO f XU f XA f VM f HCOAL f XACAO 
OPERATING CONDITIONS 


81 , 
32. 

83. 

84, 
35. 
86 * 

87. 

88 . 

89. 

90. 
91 . 

92. 

93 . 

94. 

95. 

96. 
97., 
98', 
99. 

100 . 
101 . 
102 . 

103. 

104. 

105.. . 
106. 

107, 

108. 
109. 
110 . 
til , 

1.12.. 
ii3:., 
114. 

115.. 

116.. 
117 , . 


C 

C 

c 


READ < 5 r 1001 ) HLMF f HLF r PAV r TAV r TSTA r TWIN f TUOUT f TUALLA f UHEAV 1 f UHEAV 
1UUALL1fUUALL2fTFfTSFfPF 
READ (SjIOOI) UCOALfWADfCASfUOfFMFfEXAIR 
READ(5f 1000) IBNITEf IS02f INOXf ITEMPf ipres 

CALCULATION OF VOLATILES YIELD AND THE COMPOSITION OF VOLATILES 
UIW = 0.2*<100.*VM-10.9> 

R - EXPC26. 41-3. 961*AL0G((TAV-273.))+0. 0115*100. *VM) 

V (100. WM - R - UU)*0.01 

V = V*(1.-XU-XA> 

RN - 1 .6-O,O0l*TAV 

IF (RN .GT. 1 . ) RN '=» 1.0 
IF CRN ,LT • 0. ) RN = 0.0 
RS = RN 

VGASS = XS#<1 .-XEd)*<l..-RS)/32.0 

VGASN - XN*(1 ,-XW)#<l ,-RN)/14.0 

RO = 0.0 

RH = 0.0 

GCHAR = 7000.0 

QCO = 26350.0 

CH4 = 0. 201-0. 469*VM+0,241#VM**2 
H2- = 0. 157-0, 868*VM+1.333#VM**2 

C02’ = 0.135-0 .900#VM+1’.906*UM#*2 
CO = 0.423-2. 653#VM+4.345*VM**2 
H20- = 0. 409-2. 3B9#VM+4.554*VM##2' 

TAR = -. 325+7. 279«VM-12..88*VM#*2 

HTAR = XH# < 1 . -RH ) # ( 1 » -XW ).■ - V#(CH4/l-6. *2 .0+H2/2.+H20/18. )#2.0 

OTAR = XO# ( 1 . -RO ), - V#( C02/4'4 . +CQ/28 . #0 . 5+H20/lS ; .0#0‘. 5 )#32 . 0 

MTAR =- 120.0 

CH4 = V#CH4/16 . 0 

H2 =* V#H2/2,0 

C02 = V#C02/44.0 

CO. = V#C0/28.0 

H2Q = V#H2D/18.0 

CTAR- = V#TAR - HTAR - OTAR. 

TAR = <CTAR+HTAR-f-OTAR)/MTAR 


118.. RVGflS = CH44H2+TAR 

119.. . . COV =• CO/RVQAS' 
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120 . 

121 . 

122 . 

123. 

124. 

125. 

126. 

127. 

128. 
.129. 

130. 

131. 

132. 

133. 

134. 

135. 

136. 

137. 
138'. 

139. 

140. 

141. 

142. 

143. 

144. 

145. 

146. 

147. 

148. 

149. 

150. 

151 . 

152. 

153. 

154. 

155. 

156. 

157. 

158. 

159. 

160. 
161. 
162. 

163. 

164. 

165. 

166. 

167, 

168. 

169. 

170. 

171. 

172. 

173. 

174. 

175. 

176. 

177. 

178. 

179. 



C02V = CD2/RVGAS 

COVB = ( CH4+CTAR/12 . 0 ) /RVGAS 

C02VB = COVB 

X02 = <CTAR/12.0*0.5+HTAR/2.0#0.5-QTAR/32.0+VGA9S+VGASN*0.5+ 

1CH4*1 . 5+H2*0 . 5 ) /RVGAS 

XQ2C = (CTAR/12 .O+HTAR/2 , 0*0 . 5-0TAR/32.Q4VGASS+VGASN*0 .5+ 

1CH4*2 . 0+H2*0 .5) /RVGAS 

XCV =• CTAR 4 (CH4+C02+C0)#12.0 J 

XCF = XC - XCV 

RC = XCF / XC 

H2SV = VGASS/RVGAS 

ANH3V = VGASN/RVGAS 

COALC = XC / 12.0 

COALH = XH 

COALO = XO / 16\ 0 

COALN = XN 714. 0 

COALS = XS / 32.0 

CHARC = RC * COALC 

CHARH =■ RH * COALH 

CHA^Q » fcO * COALO 

CHARN = RN * COALN 

CHARS = RS * COALS 

RCHAR * 1.0 - V - XU 

CCHAR = CHARC#12* 0/RCHAR 

HCHAR = CHARH*1 ,0/RCHAR 

□CHAR = CHARO^l 6. O/RCHAR 

NCHAR = CHARN*14. O/RCHAR 

SCHAR = CHARS*32. O/RCHAR 

TARC = ■( CHARC +C HA RH*0 . 5+CHARS+CHARN*0 . 3-CHARQ*0 . 5 ) / ( RCHAR*0 . 21 ) 
QVGAS => ( HCOAL - RCHAR * CJCHAR - CO#QCO) / RVGAS 
GVCO = QVCAS - QCQSCQVB 
T ( 1 ) = TF 

IFOJCOAL.EO.O..) IGNITE=0 

C IGNITE 0 1 

C NO COMBUSTION COMBUSTION 

C 

MAIR = 0.21*M02+<1 .-0.21)*MN2 

A2 = XC/MC+XH/MH2*0.5+XS/MS+XN/MN2~X0/M02 

FMTH = WC0AL*(1.-XW)*A2/0.21 

IF (EXAIR .GT. 0.) FMF=Fi1TH* ( 1 . +EXAIR > 

IF (EXAIR .EQ. 0. .AND .FMF .EG. 0.) FMF = ATB( 1 )*UO*PAV/RG/TAV 
IF (EXAIR ,EQ. 0.) EXAIR = FMF/FMTH - 1. 

UO = FMF*RG*TAV/PAV/ATB(1) 

FMO = FMF#(l.-0.21)+< (XC/MC+XH/MH2+XS/MS*0 , 2+XN/MN2l:2 . 0 ) * (1 .-XW ) r 
1XU/MH20 ) *UCQAL*EFF+FMTH*0 , 21*EXAIR 
GFLQU = FMF* < 1 . -0 . 21 ) *MN2+ ( ( XC/MC*MCa2-f-XH/MH2*MH20+XS/MS*MS02*0 . 2- 1 - 
1XN/MN2*2 . 0*MNQ ) * ( 1 , -XW ) +XW > *WC0AL4FMTH*0 . 21*EXAIR*M02 
MGAS = GFLOU/FMG 
C 

C FMO i AVERAGE FLOW RATE OF GAS IN THE BED hOLE/SEC 

C AVERAGE H20 CONCENTRATION IN- FBC 

YH20 =*( tdCOAL* (XU/MH2Q+XH* (1 . -XU ) /MH2> ) /FMO 
C 

RHOCH = RCHAR*RHOC 
IF (IGNITE. EG, 0)RHOCH=RHOC 
IF C IGNITE. EG.O)RH0BED=RHG AD 
IF (CAS.EQ .0 . .AND . WAD « GT . 0 . ) 

1 CAS=WAB*XCAO/MCAQ/ ( WCOAL* ( 1 , -XW ) *XS/MS ) 

IF ( CAS .GT .O..AND.UAD.EGI.O, > 
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130. 

131. 
182 . 
133. 
184. 
135. 
ISA. 

187. 

188. 

189. 

190. 

191. 

192. 

193. 

194. 

195. 

196. 

197. 

198. 

199. 

200 . 
201 . 
202 . 

203. 

204. 

205. 

206. 

207, 

208. 

209. 

210 . 
211 . 
212 . 

213. 

214. 

215, 

216, 

217, 

218. 

219. 

220 . 
221 . 
222 . 

223. 

224 . 

225. 

226. 

227. 

228. 
n 29 . 

230. 

231. 

232. 

233. 

234. 

235. 

236. 

237. 

238. 

239. 


1 UAD=CAS* ( WCOAL* ( 1 . -XU ) *XS/MS ) / < XCAO/MCAO ) 

AI = 0.0 

IFCCAS .GT. 0.0) Al « 0.85/CAS 
IF (Al .GT. 0.4) Al = 0.4 

RHOBED= < 1 . -XCO2+XCAO/MCA0* A 1 *MCASQ4 ) *RHOAD 
IF (CAS .EG. 0.0) RHOBEB = R'HOAD 
RHOGAS=PAV*MGAS/ (RG*TAV) 

VISC=3.72E-6*(TAV**0.676) 

C 

C QCL.CN : HEAT OF CALCINATION PER GRAM AUDITIVE 
C 

QCLCN=< 42500. OJKXCAO/MCAO + 23810 .0*XMGO/MMGO> 

CS=0 . 215 

C MAIN OUTPUT 2 

C =»SS=:=:2=S==5C===;=S=S 

WRITE ( 6 f 2000 ) NAMEL1 7NAMEL2r XCAO rXMGO 7 XSI027 XC02 
WRITE <6 7 2010) DASVF 7 DAWMF 

WRITE < 6 f 2020 ) NAMEC1 / NAMEC2 1 XCF 7 XCV 7 XH 7 XN t XS r XO r XW 7 XA r VM 7 Vr HCO AL 
ItXACAO 

WRITE (6 7 2040) DCSVF 7 DCWMF 

WRITE (672030) ( K 7 HB ( K } r DPSE ( K) , 7 DPWE ( l\ ) r WEA ( l\ ) ? DCSE ( t\ ) tDCWE(I\) 7 
1WEC(K) »K=l7KT) 

WRITE ( 67 OPCF) 

ZAVG(l) = 0.0 
X(l) - 0.0 

IF (HEMP .GT. 0) TAV = TSTA 

DO 20 1=2,60 

TCI)=TAV 

20 CONTINUE 

C INITIAL BUBBLE HYDRODYNAMIC CALCULATION 

IF (HLF .EQ. 0.0) VMF = VOLUME <HLMF) 

IF (HLMF .GT. 0.0) UB = VMF*< 1 .-EMF >*RHOBEB 

IF( IGNITE. EQ . 1 )G0 TO 41 
CALL HYDRO 

DO 35 r=27Ml 

ZAVG(I) = ( H ( I ) + H(I-l) ) * .5 
35 CONTINUE 

ETC=0 . 

YAV=0,21 

XAV=WCQAL*XC/ (UCOAL+WAD) * C 1 ,-XW ) 

FMO=FMF 

IF (WAD. EQ. 0,0 .AND. 'IGNITE .EQ. 0) GO TO 900 
C # X*%%t*X%*XX**XtX#**%X%tt%%***X**X*X*X**X***X***X**%**XX*Wt**XX*X 

C FOR CONDITIONS OF NO COAL COMBUSTION. IGNITION IS ZERO AND 

C MATERIAL AND ENERGY BALANCES CALCULATIONS ARE SKIPPED 

YB ( 1 ) = YAV 
YE(1> = YB( 1 ) 

FEM < 1 ) = UMF ( 1 > # AT( 1 ) * PAV / (RG*T(2>) 

FBM < 1 ) = FMO - FEM(l) 

DO 115 I = 2-60 

RR8< I ) =0.0 
RRE<I) = 0,0 
YB ( I )=YAV 
YE ( I ) =YAV 
X( I)=XAV 

IF (I .GT. Ml) GO TO 115 



240. 

241'. 

242. 

243. 

244. 

245. 

246. 

247. 

248. 

249. 

250. 

251. 

252. 

253. 

254. 

255. 

256. 

257. 

258. 

259. 

260 . 
261. 
262. 

263. 

264. 

265. 

266. 
267. 
268.. 

269. 

270. 

271. 

272. 

273. 

274. 

275. 

276. 

277. 

278. 

279. 

280. 
281. 
282, 
283. 

294. 

295. 

236. 

237. 
288. 

289. 

290. 

291 . 

292 . 

293. 

294. 

295. 

296. 

297. 

298. 

299. 
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FEM( I ) = UHF<n*ATa)’*(1.0-eTUBE(I))*PAV / (RG*TiI)> 

FBM(I) = FMO - FEM < I ) 

IF (UOCI) .L£. UMF ( I ) ) FEM(I> ■= 0.0 
115 CONTINUE 

IF (IGNITE '.EQ. O) GO TO 630 
41 CONTINUE 

C BOUDARY CONDITIONS FOR GAS CONCEN IRATIONS 

C 

Y0(1) = 0.21 
YV Cl) = 0.0 
YC0<1) = 0.0 

rsocci) = 0.0 

YNGXCl) =0.0 
YBa)=FMF#0.217F«0 
YE(1)=YB( 1 > 

YVE(l) = 0.0 
YCQE<1) =0.0 
YCQ2B ( 1 ) =0.0 
YC02E(1) = 0.0 
YC02( 1 ) = 0.0 
C 

C FROH HERE TO THE STATEMENT NO. 600 J TEMPERATURE ITERATION LOOP 

C 

BO 600 ITRIAL =1,30 
C 

C CALCULATION OF LOG MEAN TEMPERATURE OF THE COOLING WATER 

C 

A1 = TWOUT - TWIN 

A2 = ALOG(<TAV-TUIN>/<TAV-TWOUT>> 

TWAO = TAV * A1/A2 
CALL HYDRO 
DO 25 I = 1 ,MT 
TW ( I ) = TUAV 

IF (I .L£, Ml) UHE(I) = UHEAU1 

IF (T .GT. Ml) UHECI) = UHEAU2 

IF (I .LE. Ml) UHEW(I) = UUALL1 

IF (I .GT. Ml) UHEWC I ) = UWALL2 

AHEU(I) = 4.0/DTCI) 

TUALL(I) = TUALLA 
25 CONTINUE 

MF'l = Ml + 1 

IF ( ITRIAL »GT . 1 .AND. Ml . ED . M 10LD ) GO TO 170 
Jl=l 

DO 56 1=2, Ml 

WFC ( I ) =0 . 

WFAD ( D =0 . 

J2= J1 

IFf J1.GT.MFEEB)G0 TO 56 

HO 55 J=J1 » MFEED 
IF<ZF< J) .GT.HCI) )G0 TO 55 
WFC C I ) =WCQAL*FFC ( J ) 

WFAD ( I >=WFAB ( I ) tWAH*FFAD ( J ) 

J2=J+1 

55 CONTINUE 
J1=J2 

56 CONTINUE 
IF< J1 .GT .MFEED) GO TO 58 

DO 57 J=J1, MFEED 

WFC (Ml )=WCOAL#FFC ( J) 

WFAD<Ml>=WFAD<Mi>+UAI<#FFADCJ> 
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300. 

301. 
302 k 

303. 

304. 

305. 
306 » 

307. 

308. 
309 » 
310. 
311 k 

312. 

313 . 
314 . 
315. 
3'16. 

317. 

318. 
319 » 

320. 

321. 

322. 

323. 

324. 

325. 

326. 

327. 

328. 

329. 

330. 
331 

332. 

333. 
334-, 
335'. 
336. 
337-. 

338. 

339. 

340. 
341 , 
342 » 

343. 

344. 

345. 

346. 

347 . 

348. 

349. 

350. 
351 . 

352. 

353 . 

354. 

*2 \-J ♦ 

356. 

357. 
358 . 
359. 


57 CONTINUE 

58 CONTINUE 
170 CON+INUE 

FEM< 1 1 = UMF(l)*AT(i)*(1.0-ETUBE(l) ) *PAV/ < RG*T < 2> ) 

Ffemi) = FMF - FEM(1> 

DO 133 1=2, Ml 

TQLD< I )=T( I ) 

C . , . 

C DISTRIBUTION OF tMe VOLATILES EVOLVED 

C 

VPROb'I) *> UGOAL * RVG'AS # <H( I ) -H< 1-1 ) 1 /H(M3J*FW 
VPRQEKI) = VPROD<I)+WFC(I>*RVGAS*U.-FU) 

FEM< I) = FEMd-l)+VPROD(I) 

IF <U0 < I ) »LE ,UMF < I) ) FEM(I) = FMO 
FBM(I)=FMO-FEM(I) 

13-3 CONTINUE 

C 

C FROM THE STATEMENT NO. 200 TO 300 I ITERATION OF MATERIAL BALANCE 

C BASED ON THE GIVEN TEMPERATURE PROFILE. GAUSS SEIDEL METHOD 

C 

200 CONTINUE 
INDEX = 0 
DETC = =~ 0 . 0001 

IF < TAV • GE v 1100 . 0 .AND, TAV .LT. 1150.0) DETC = -0.0002 
IF (TAV -.GE» 1050. 0 iAND. TAV. LT. 1100. '0) DETC = -0.002 
IF < JAV .LT, 1050.0 .AND. TAV .GE. 1000.0) DETC = -0.005 
IF (TAV .LT . 1000,0? DETC - -0.01 
EETCM =■ 0>6l 
EtGA * 0,. 99999 

IF ( ITRIAL .GT. 1) GO TO 175 

AMODF = 6. OfcRHOBED# < 1 i'-EMF ) / ( DCS VB^RHOCHYCCHARJ 
C 

C PREPARATORY STATEMENTS FOR THE WHOLE ITERATION. 

C 

DO 130 I = 2,60 

YAV = 0.16 

IF (I .GT. Ml) YAV = 0 ; 09 
Yfi ( I ) = YAV 
YE (I) = YAV 
YO(I) = YAV 

130 CONTINUE 

175 CONTINUE 
C 

C ASSUMING THE CARBON COMBUSTION EFFICIENCY, CARBON CONC. IN THE 

C BED IS CALCULATED. KNOWING THE CARBON CONCENTRATION IN THE BEDrGAS 

C PHASE MATERIAL BALANCE IS PERFORMED AND THE COMBUSTION EFFICIENCY 

C IS CALCULATED. ITERATION IS CONTINUED TILL THE ASSUMED COMBUSTION 

C EFFCIENCY EQUALS THE CALCULATED EFFICIENCY FROM OXYGEN BALANCE. 

C 

DO 201 NT = 1,30 

XAV “ (('WG0ALYRCHA'R-CELU)*CCHAR*(1.-ETCA))/WDIS 

DO 1 I = 1 ,M1 

1 X(I) = XAV 

T CRATE =0.0 
C 

C GAS PHASE MATERIAL BALANCE IN THE BED 


CALL AKK ( AKD, T ( I ) , P'AV , DCS VB , TPB ( I ) , YB( I ) , RG , MC , AKC02 , PHI B ) 
TA VB=< T ( I ■) +TPB ( I ) ) /2 . 
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360. 

361 . 

362. 
363 * 

364. 

365. 
366 • 
367. 
36S. 

369. 

370. 
371 . 

372. 

373. 

374. 

375. 

376. 

377. 

378. 

379. 
380 . 
331 . 

382. 

383. 

384. 

385. 
386 . 

387, 

388 , 


233 


C 

C 

C 


CAUL AI\K ( AKEr T-( I ) . PAV » DCSUB t TPE CD* YE (Dr RG r MC » AKC02 r PHIE) 
TAVE=(T(I) +TPE ( I ) ) /2 , 

11=1-1 

CALL GPB < YH20 r AKB r AI\E r AKBE <I)r AMODF r BVBB < I > r EMF » EPB ( I) r EPC (Dr 
1 ETUBE (Dr FBM (ID. FBM ( I ) r FEM< II ) r FEM ( D r GB ( I > r COB < D r GE ( D r PAV r 
2PHIE r RG r RVGAS » T ( I ) r TAVB r T AVEr VPROD< I > r X < I) r XG2 r XG2Cr YB( II ) r YB< I ) r 
3YCQE(ID rYCQE(I) rYE(Il) r Y£(I ) r YV£(I1 ) r YVE< I ) r AKC02r CGV«C02Vr CQVBr 
4C02VB r YC02B < II ) r YC02B (Dr YCD2E ( I 1 ) t YC02E ( I ) >? 

AM = BVBB( I >*AMQBF*X < I ) #MC 

RRB (I) = AM*(PAV/RG ) *(EPC < U-EPB ( 1 1 )*YB ( D#AKB/TAVB/CCHAR 
RRE ( D = AM* ( PAV/RG/T AVE ) * ( 1 . -EPC ( I ) -ETUBE < I : > ) / CCHAR* ( YE( 1 ) *AKE+ 
1YC02E(D*AKC02) 

RR<C) = ( RRB < I ) +RRE ( I ) ) /X < I) 

TCRATE =* TCRATE + RR(D*X(D 

YO ( I) = (FEM(I)*YE(D4FBM(D*YB(D 1/FMO 

YC02 < I ) = (FEM( D#YC02E< I )+FBM( I )*YC02B < I ) )/FWQ 

YV( I ) = FEM C 1 1 *YVE ( I) /FMO 

YCO(I) = FEM < D *YCOE < D /FMO 

CONTINUE 

GAS PHASE MATERIAL BALANCE IN THE FREEBOARD 

DO 234- I = MPlrMT 

J = I -Ml 
K = J+l 

HAV = (H< I-l)+H< I) )/2.0 
CALL AREA C HAV rBTAVrATAV) 

RHOGAS = PAV*MGAS/RG/T(I) 
vrsc = 3.72E-6*r<T)**0.676 


389 . 
390. 
391 . 

392. 

393. 

394. 

395. 

396. 

397. 

398. 

399. 

400. 

401. 

402. 

403. 

404. 

405. 

406. 

407. 

408. 

409. 

410. 
411 . 

412. 

413. 

414. 

415. 

416. 

417. 
413. 
419. 


DCSVE = 0.5*(DCSE( J)+DCS£(K) ) 

DCUME = 0.5*<nCUE( J)+DCWE(K) ) 

CALL VEL< VISC » RHOGAS r G r RHOCH r DCS VE » UMFA V .UTAV ) 

UO(I) = FMQ*MGAS/RHQGAS/ATAV/ ( 1 . -ETUBE v I> ) 

RT = (HB(K)-HB(J) ) /ABS CUO < D-UTAV) 

WCHOLB(I) = (2.0#WEC( J>-WEC<KD*RT 
VCHOLD = UCHOLDX I ) /RHOCH 
NC = VCHQLD*6 , 0/ ( PI*DCSVE**3 ) 

CALL AKK( AKCr T< I ) r PAV * DCSVE #TPB < I ) j YQ( I ) rRGrMCr AI\C02»PHIEO 

TPE ( D = TPB(D 

TAVB = (T(I>+TPB<I))/2*0 

II = 1-1 

CALL FBC < YH20 r ARC r DCSVE r D VBB (I)r ETUBE < I ? r FMO r GB < I > r COB < I) r 
1GE ( I) r NC r PAV r PHIB r PI j RG r RVGAS r T ( I ) r TAVB r X02 r YCO ( II > r YCO ( II » TO ( 1 1) r 
2Y0XD rYVCIl JrYVU) r Al\CQ2r C0V6 r C02VB r YC02 ( ID r YC02(D ) 

RRB ( I ) = MC*NC'|(PIi((DCSVE#*2*PAV/RG/TAVB/CCHAR*( YO ( I )*AI\C+ 
1AKCQ2*YC02( I ) > 

RRE(I) = 0.0 

TCRATE = TCRATE + RRB ( I ) 

234 CONTINUE 

C WRITE ( 6 r 205 ) < I r YB ( D r YE (Dr YCOE ( I ), YVE < I) r H ( I) r YC02E (Dr YC02B ( 7 1 

C 1U0(I) rUMF(D r 

C205 FORMAT < ' 0 ' r T5r ' I ' r T12 r ' YB ' r T24 r ' YE ' r T35r - YCOE ' r T46 , ' YVE ' j T5E r 
C 1 'H' rT70r ' YCQ2E' rT82r / YC02B' rT94r 'UO' rT106r 'UMF' r//r ( I5r 1P9E12 . 3 ) i 
A1 = FMF*0 .21+UCOAL* < 1 . -XW ) *X0/M02— FMO* YO ( MT ) 

ETCG = A1/(FMTH*0.21 - CELU*TARC*0 .21 ) 

C WRIT£(6 r 209 ) NTr ETCA r ETCG r XAV 

C209 FORMAT ( 'O'. lOXr ' NT r ETCA r ETCGr XAV = 14 r 1P3E12 .3/ ) 

£R=ETCG-ETCA 

CALL CRRECT ( NT r INDEX t DETC r ETC! r ETC2 r ETC A r El r £2 r ER r EETCM ) 

IF (INDEX «E0. 2) GO TO 236 
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420, 

2< 

01 

CONTINUE 

421 . 

236 

'CONTINUE 

422. 

C 



423 , 

c 


FROM THE GAS PHASE MATERIAL 'BALANCE, CHAR COMBUSTION RATE HAS BEEN 

424. 

c 


ESTIMATED. KNOWING THIS AND THE SOLIDS MIXING 'RATE, CARBON BALANCE 

425, 

c 


IS PERFORMED, THE EQUATIONS ARE SOLOED BT THE SSP SUBROUTINE SIMQ 

426, 

c 


(SIMULTANEOUS SOLUTION OF ALGEBRAIC EQUATIONS). THE SOLUTION GIVES 

427, 

c 


THE CARBON CONCENTRATION PROFILE IN THE BED. 

423, 

c 



42? , 



WMIX( 1)=0» 

430, 



WNET( 1 )=0* 

431, 



Jl=l 

432. 



DO 61 1=2, Ml 

433, 



WD ( I ) =0 . . 

434, 



62=41 

435. 



IF ( J1 , GT . MBIS ) GO TO 61 

436. 



DO 60 J=J1,MDIS 

437. 



IF(2DIS(J) .GT.H<I))GO TO 60 

438, 



WD ( I > =WD ( I ) +WD I S* FB ( J > 

439. 



J2=J+1 

440. 


60 

CONTINUE 

441 . 



J1=J2 

442. 


61 

CONTINUE 

443. 



IFCJl .GT.MDISJGO TO 63 

444. 



DO 62 J=J1 , MDIS 

445. 



WD ( Mi ) =UD ( Mi > +WDI S*FD < J ) 

446. 


62 

CONTINUE 

447. 


63 

CONTINUE 

448. 

c 



449. 

c 


WMIX J UP- AND DOWN-WARD SOLID MIXING FLOW WHICH IS SUPERPOSED ON 

450* 

. c 


FLOW OF SOLIDS, G/SEC 

451 < 

c 


WN£T(I) i NET FLOW RATE OF SOLID FROM THE TOP OF I-TH COMPARTMENT. 

452. 

c 


POSITIVE VAL-UE- MEANS THE UPWARD FLOW, 

453, 



TFC = WCQALCRCHAR - CELU 

454, 



DO 255 1=2, Ml 

455. 



RR( I ) = RR(I)*TFC/TCRATE 

456. 



UNET ( I ) =UN£T ( 1-1 ) +WFC ( I > *RCHAR+WFAB ( I ) -WD < I ) -RR ( I ) *X ( I , 

457. 



WMIX ( I > =AT ( I ) * < 1 , -ETUB£( I ) ) # ( UO ( I ) -UMF ( I) ) *FW* ( 1 ,-EMF ) *RHOBED 

458. 



IF(UMIX(I) .LT.O, )WMIX(I)=0, 

459, 


255 

CONTINUE 

460 . 



WMIX (Ml) =0t 

461 . 

c 



462, 

c 


CARBON CONCENTRATION CALCULATION. 

463 .- 

c 



464, 



MM=M*M 

465. 



BO 411 1=1, MM 

466.- 


411 

AAA<I)=0. 

467. 



DO 412 1=1, M 

468 . 


412 

BBB< I )=0 . 

469, 



AAA < i ) = -WMIX (2)— WD (2 ) -RR ( 2 ) 

470. 



AAA <M1 ) =WMIX (2 )— UNET (2) 

471. 



AAA (MM) = — WMIX (M )+UNET ( M )— WD (Ml ) -RR ( Ml ) 

472. 



A A A ( MM— M ) =WM IX ( M ) 

473. 


- 

DO 413 1=1, M 

474. 



11=1+1 

475. 



BBB(I) = - MClcCHARC*WFC(Ii) 

476. 


413 

CONTINUE 

477. 



M0=M-1 

478. 



DO 270 I =2 . MO 

479.- 



II=<I-l)*M-tI 
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480 . 
481 » 

482. 

483. 

484. 

485. 

486. 

487. 
■488. 

489. 

490. 

491. 

492. 

493. 

494. 
475. 

496. 

497. 

498. 

499. 

500. 

501. 

502. 

503. 

504. 

505. 
306. 

507. 

508. 

509. 

510. 

511. 

512. 

513. 

514. 

515. 

516. 

517. 

518. 

519. 

520. 

521. 

522. 

523. 

524. 

525. 

526. 

527. 

528. 

529. 

530. 

531. 

532. 

533. 

534. 

535. 

536 . 

537. 

538. 

539. 


11=1+1 

AAA<II> = -WMIX< JD-UMIX<I>+WNET<n 
1 -WD (ID -RR < II > 

AAA(II-M)=UMIX(I> 

AAAiII+M) =-UNET (ID +WMI X (ID 
270 CONTINUE 

CALL SIMGKAAA . BBB .MrMM.KS) 

SUM=0. 

DO 280 X=DM 

X(I+D = BBB(I) 

SUM = SUM+Xa+1) 

280 CONTINUE 

XAV=SUM/FLOATCM) 

C WRITE ( 6 r 286 ) XAV» ( I .X< I ) .H<I ) ? 1=1 » Ml ) 

C286 FORMAT ('0'.' XAV = ' r 1PE12 . 3 »/ . ( ' I.X.H = ' » IS* 1P2E12 . 3 D 

SUM=0. 

DO 285 1=2* Ml 

SUM«WD( I)*X(D+SUM 

CARCON < I) =X ( I) *RHOBED* < 1 . -EMF ) * ( 1 . -ETUBE ( I ) -EF’B M D / <1 . -ETUBE ( I) ) 
235 CONTINUE 

CLASS = SUM + CELU*CCHAR 

ETCC * 1.0 - SUM / ( ( WCOAL * RCHAR - CELU)*CCHAR ) 

ETC = 1. - CLQSS / < WCOAL * XC * (l.-XWD 
C 

C HAVING OBTAINED THE CORRECT CARBON CONCENTRATIONS IN THE BED. 

C GAS PHASE MATERIAL BALANCE IS REPERFORMED TO ARRIVE AT THE CORRECT 

C CONCENTRATION PROFILES FOR THE VARIOUS GASEOUS SPECIES 

C 

C GAS PHASE MATERIAL BALANCE IN BED 

C 

TCRATE =>0,0 

DO 235 1=2. Ml 

CALL AKK C AKB . T < I ) r PAV * DCSVB . IPB < I > . YB ( D . RG , MC * AKC02 . PHIB > 
TAVB=(TU)+TPB(I)>/2. 

CALL AKKCAKE* T( I ) .PAV? DCSVB. TPE ( I ) * YE( I ) *RG*MC»AKC02?PHIE) 

TAVE= < T( I )+TPE ( I ) >/2, 

11=1-1 

CA LL GPB < YH20 . AKB » AKE . AKBE ( I ) . AMODF . DVBB < I ) . EMF . EPB ( I ) . EPC ( I ) » 
lETUBE(I) .FBMUD .FBM(I) .FEM(ID .FEM(I) .GBCD.COBd) .GEUDPAV* 
2PHIE. RBrRVOASf T (I ) *TAVB* TAVE* VPRQDU JiX(I) . X02/X02C *YB<ID»YB<I)» 
3YCQE (ID » YCOE (I ) * YE< ID * YE( I ) . YVE( 11 ) . YVE (I DAKC02 . COV . C02V , COVB . 
4C02VB . YC02B (ID .YC02BCI) . YC02E (ID . YC02E( I ) ) 

AM = DVBB(I)*AMODF*X(I)*MC 

RRB(I) = AM#(PAV/RG)*<EPC(I)-EP8<ID*YB<I>*AKB/TAVB/CCHAR 
RRE(I) = AM* < PA V/RG/TAVE ) * < 1 . -EPC < I ) -ETUBE < I > ) /CCHAR# ( YE < I ) *AK£+ 
1YC02E(D*AKC02> 

RR ( I ) = ( RRB ( I ) +RRE ( I ) ) /X < I ) 

TCRATE = TCRATE + RR<I)*X<I> 

YO(I) = <FEM( I ) *YE( I )-rFBM< I ) *YB< I ) )/FMO 
YC02<D = CFEM( I ) *YCQ2E (D+FBMCI) *YCQ2B (ID /FMO 
YV < I ) = FEM ( I ) * YVE ( I ) /FMO 
YCO(I) = FEM ( I ) KYCOE C I ) /FMO 
235 CONTINUE 

BECCOM = TCRATE 
C 

C GAS PHASE MATERIAL BALANCE IN THE FREEBOARD 

C 


J = I-Ml 
K = J+l 


DO 237 I = MP1.MT 
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540.. 

541. 

542. 

543. 

544. 

545. 

546. 

547. 
549. 
549. 

550.. 

551. 

552. 

553 . 

554. 

555. 

556. 

557. 

558.. 

559. 

560. 

561. 

562. 

563. 

564. 

565 . 

566. 

567. 

568. 

569. 

570. 

571 . 

572. 
573 ♦. 

574. 

575. 

576. 

577. 

573. 

579. 

580. 

581 . 

582. 

583. 


BCS.VE = 0.5*<BCSE(J)+DCSE<In> ) 

VCHOLB =WCHOUD(I)/RKQCH 

NC = VCHGLD#6.0/<PI*UCSME#X3) 

CALL ARRCAKCfT(I) fPAV > DCSUE>TF'B( I ) i fO ( I ) i RG»MC»AI\C02»PHIB) 

TPE < I ) = TPB(I) 

TAOB = (T(I)+-TPB(in/2.0 
II = 1-1 

CALL FBC C YH20 t AKC > BCSVE rDVBB ( I ) . ETUBE ( I ) »FMO.GB( I) , COB C . 

1GE( D ,NC.PAU .PHIB.PI jftG.ROGAS .T< I) . TAVB.X02. YCO( II ) rYCQ(H rYOCID , 
2VQ< I) t YV(Ii) »YV(I ) J AKCa2FCOOB.C02VB,yC02<Il) »YC02<I) > 

RRB ( I > = HC*NCJ|tPI*0CSVE**2*PA0/RG/TA98/CCHAR*(Y0(I>*AKC+ 

1 AKC023C YCD2 CD) 

RRECI) =0.6 

TCRATE = TCRATE + RRB < I ) 

237 CONTINUE 

FBCQM = TCRATE - BEBCQM 
C 

C THE DEFINITION OF RRCI) IS CHANGED FOR TEMPERATURE CALCULATIONS. 

C RR{ I)=(H£AT GENERATION RATE- HEAT CONSUMPTION RATE) IN THE 
C ITH COMPARTMENT. 

C 

DO 295 1=2 j Ml 

RR ( I )=RR < I >*X < I) /TCRATE*QCHAR* ( UCOALKRCHAR-CELU ) *ETCC+ 

1 GE ( I ) *GUCO+GB ( I ) #aVGAS+COB ( I ) *GCO-GCLCN#UFAD < I ) *RHQAB 
295 CONTINUE 

DO 300 I = MPlrMT 

RR ( I ) = RRB<I)/TCRA.TE*QCHAR*(UCOAL*RCHAft-CELU)*£TCC-i- 

1 GE< I ) JKQVCO-FGB ( I ) *OUG AS+COB.C I ) *QCO 
300 CONTINUE 

IF { I TEMP .EQ t 0) GO. TO 610 
C 

C CALCULATION OF TEMPERATURE 

C 

Al= CADF 
A2~ CCF 

CGM = 6.8+0.5E-3*CTAU-273> 

A3“CGM*FM0 

ALFAf 2) = (WMIXC2)+WD<2)! >*CS+A3+UHEC2>*AHEAUC2)*DUBB<2> 

1 +UHEW < 2) *AHEU < 2 ) * BUBB ( 2 ) 

BETA<2j=(-UNET(2)+yNIX(2>)*CS 

GAMA<2>=0. 

BELT (2 ) =RR < 2 )+CGMF#FMF>K CT(2)-273.)+ ( AltfcWFAD C 2) + A2TUFC (2) )*(TSF- 
1 . >+UHE{2)*AHEAV<2)*DVBB<2>*<TW<2)-273. >+UHEU< 2) *AHEWC2)*BVBB<2 ) 

2 C TWALL C 2 ) -273 . ) 


584. 

535, 

586. 

587. 

588. 

589. 

590. 

591. 

592. 

593. 

594. 

595. 

596. 

597. 

598. 

599. 


C 

C HEAT BALANCE IN THE BEE 


11 = 1-1 

ALF A (I) = < = WNET ( 1 1 > +WM IX < I ) +WM I X < 1 1 ) +UD ( I ) ) 

1#CS+A3+UHE ( I > * AHEAVC I ) SBVBB ( I ) +UHEU C I ) *AHEW < I ) *HVBB ( I ) 
BETACI)=(-UNET<I)+WMIX(i) )#CS 
GAMA(I)=<WMIX< ID )*0S+A3 

BELT ( I ) =RR U > + < A1*WFAD ( I ) + A2*UFC Cl ) ) * < TSF-273 , > +UHE C I ) * AHEA V (I ) * 
1 DV8B C I ) * C TU < I ) -273 . ) +UHEW C I ) *AH£U ( I ) *DUBB ( I ) * ( TUALl ( I)— 273. ) 

310 CONTINUE 

ALFACMD=<-WNETCM)+UMIX<M)+WB(M1) ) *CS+A3 
1TUHE(MD*AHEAV<M1)*DUBB<M1)+UHEUCMDYAHEWCM1)TD0SB(M1) 

BETA C Ml ) =0 . 

gAMA <M1)=(WMIXCM) )*.CS+A3 


* ?J 
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600 . 

601. 

602. 

603. 

604. 

605. 

606 . 

607. 

608. 

609. 

610. 
611. 
612. 

613. 

614. 

615. 

616. 

617. 

618. 
619. 
6 20 . 
621. 
622. 

623. 

624. 

625. 

626. 
627. 
623. 

629. 

630. 

631. 

632. 

633. 

634. 

635. 

636. 

637. 

638. 

639. 

640. 

641. 

642. 

643. 

644. 

645. 

646. 

647. 
648 * 

649. 

650. 

651. 

652. 

653. 

654. 

655. 

656. 

657. 

658. 

659. 


BELT < M 1 )=RR < Ml ) + < A1*UFAD C Ml > +A2*WFC < HI ) ) * C TSF-273 , ) 
L+UHECM1>*AH£A0CM1)*DVBB<M1 ) * C TW < M 1 ) -273 . ) 

2-HJHEUC Ml > ’KAHEUCMi ) *BU BB < Ml ) * C TUALL ( Ml ) -273 . ) 

TEMPERATURE SOLUTION BY SIMQ 


501 AAAC I )=0 . 

502 BBB ( I )=BELT < 1+1 ) 
AAAC1)=ALFA(2> 

AAA (Ml ) = -BETAC2) 
AAA C MM ) = ALFA < Ml J 
AA A ( MM-M ) =-SAM A ( Ml ) 


DO 501 1=1 rMM 


502 1=1 >M 


DO 503 1=2 i MO 


II=CI-1)*M+I 
AAA C II ) =ALFA ( 1 + 1 ) 

AAACII-M)=-GAMA<I+1) 

AAA<II+M)=-BETA<I+1) 

503 CONTINUE 

CALL SIMEKAAA.BBBfMiMM.KS) 

TN0RM=0. 

TAV=0 . 

DO 504 1=2 /Ml 

T C I )=BBB( 1-1 )+273 . 

TAV=TAV+T < I J 

TN0RM=TNORM+ABS C TCI) -TOLD ( I ) ) 

504 CONTINUE 
TAV=TAV/FLOAT< M.) 

TNORM=TNORM/FLOAT C M ) 

WRITE < 6 r 208 ) TNORM . TAV * BEDCOM >>FBCQM 
208 FORMAT ('O', 10X t ' TNORM rTAU. BEDCOM >FBCOM = 


i 1P4E12. 3) 


HEAT BALANCE IN THE FREEBOARD 

DO 320 I = MP1.MT 

J = I ~M1 

WENT I = WEA< JJ+WECC J) 

ANR = ( UENTI*CS+A3> * < T ( I-l’> -273 . ) +RR ( I ) +DUBB ( I ) *UHE < I ) *AHEAU ( I ) * 
1 C TW C I ) -273 . ) +DOBB < I ) tUHEU C I ) *AH£U C I ) * C TUALLC I )-273 . ) 

DR = WENTI*CS+A3+DUBB < I > *UHE ( I ) *AHEAV < I ) +DVBB <T ) *UHEUC I > *AHEU C I ) 
TCI) = ANR/DR + 273.0 

CONTINUE 

CONVERGENCY CRITERION FOR TEMPERATURE CALCULATION 


IF C TNORM. LT.O.OiXtTAV) 
M10LD = Ml 


GO TG 610 


600 CONTINUE 

WRITE C 6 f 3003) 

3003 FORMAT C '0 ' » 10X j 'GAUSS SEIDEL TEMPERATURE TRIAL HAS NOT CONVERGED . 


1 S.ND. = 3003' 
CONTINUE 


DO 620 


A1 = AHEAOCI) * nOBBCI) 

HAREA = HAREA + A1 

GTRANS = UHECI) * A1 * < TCI) — TW Cl) 
RRCI) = RRCI) / DVBBEFCI) 

ZAVOCI) = ( HCI-1) + HCI) ) * 0,5 

CONTINUE 


GTRANS- 
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660. 


QOOL = GTRANS/ BEBVQL 

661. 


HFB = H(MT) - H ( Ml > 

662. 


IF (HAREA ,NE. 0,0) QAREA = C3TRANS/HAREA 

663. 


TPBC 1 )=T( 1 ) 

664. 


TPEC 1 >=T < 1 > 

665. 


TA0=TA0-273, 

666 . 


DO 612 1=1, MT 

667. 


T( I )=T( I > -273, 

66S. 


. TF'B ( I ) =TPB ( I ) -273 , 

669. 


TPE ( I > =TPE < I >-273 . 

670 . 

61 

2 CONTINUE 

671. 

C 


672. 

C 

MAIN OUTPUT 3 

673. 

C 


674. 


WRITE (6,2001) ETC, XAV , TAU , I TRIAL, (I,H(I),YB(I)', YE(I>, YVE ( I ) , 

675. 


1YC0E( I ) , YC02£( I ) rfC02B( I > » XCI) »ZAVG( I > > I=2»M1) 

676, 


WRITE (6,2002) ( I, H( I ) ,YO(I) , YV< I ) ,YCO(I) i YC02 ( I ) ,T( I ) ,TPB < I ) 

677. 


1TPECI) , ZAVG( I ) , f =2,t1T) 

673. 


DO 613 I = i , MT 

679. 


TPB(I) = TPB( I) +273.0 

680. 


TPE ( I ) = TPE(I)+273.0 

581, 


T Cl) - t(I)+273.0 

682. 

613 

CONTINUE 

683. 


YSO( 1 ) =Y0( MT) 

684. 

C 


685. 

C 


68 6i 

G 

CALCULATION OF S02 REDUCTION 

687. 

G 


6Q3. 


IF ( IGNITE, EO.Q) TCRATE ~ 0.0 

689. 


BO 710 1=1, -NT 

690. 


IF <1 .GT. Mi) GO TO 709 

591 . 


YEO(I) = YEC I > 

692. 


YBO ( I ) = YB(I) 

693. 

709 

YB ( I ) =0 , 

694. 


YE (I )~0. 

695. 

710 

CONTINUE 

696. 


IF ( IS02 . EQ .. 0 ) GO TO 311 

697. 

630 

CONTINUE 

699. 


FRS = WCOAL*XS/MS#FLOAT( IGNITE )*<1.-XW) 

699. 


IF (FRS * LE. 1,£~6> 00 TO 310 

700, 

C 


701. 

C 

CASE J EFFECTIVE RATIO OF CA TO S (ACTIVE) IN THE FEEDS 

702. 

C 


703, 


CASE= ( WAD*XCAO+UCO AL*XA*XACAG > 7MCA0/FRS 

704, 


IF (CASE. EQ .0 . ) GO TO 911 

705. 


SULFUR = WC0AL*<1,~XU)*XS*RS/MS - CLQSS*SCHAR/CCHAR/MS 

706. 


RELB ( 1 )=0 . 

707. 


RELE(1 )=0. 

708. 


YB ( 1 ) =0 . 0 

709, 


YE ( 1 >=YB( i ) 

710. 


ETS=0*0 

711. 


DETS=0 , 1 

712 r 


EETSM=0.005 

713. 


INDX=0. 

714. 


DO 711 1=2, MT 

715. 


RELB (I )»&-. 

716 . 


RELE(I)=0. 

717. 


IF (TCRATE .LEi 0.) GO TO 711 

719. 


'genb = gb(i>*ogass/rvgas 

719. 


'GENE = GE< DWGASS/RVGAS 
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720 * 



RELBU) = RRB< I)/TCRATE*SULFUR. +GENB 


721 . 



RELE(I) = RRE< I)/TCRATE*SULFUR+GENE 


7 n*-> t 


711 

CONTINUE 


723. 



DO 300 ITRY=1 * 20 


724 . 



FS=£TS/CASE 


725. 

C 




726. 

c 


FS 5 FRACTIONAL CONVERSION OF ADDITIVE 


727. 

-C 


ASSUMING THE SULFUR CAPTURE EFFICIENCY ?FS IS CALCULATED AND 

HENCE 

728. 

c 


THE LIMESTONE REACTIVITY. THENrSQ2 MATERIAL BALANCE IS PERFORMED. 

729. 

c 


FROM THE EXIT 302 CGNC. IN THE FLUE? S02 CAPTURE EFFICIENCY 

IS 

730. 

c 


CALCULATED. ITERATION IS CONTINUED TILL THE ASSUMED AND THE 


731. 

c 


CALCULATED SULFUR DIOXIDE RETENTION EFFICIENCIES AGREE. 


732. 

c 




733. 



AK=AKAD ( FS ? DPSVB j T < I ) ) 


734 . 

c 




735. 

c 


S02 BALANCE IN THE BED 


736. 

c 




737. 



DO 740 I=2jM1 


738. 



11 * 1-1 


739. 



AM-(l.-EMF) 


740. 



CALL GPHASE<AK»AK»AMtPAVtRG ? ETUBEU) jEFBU) ?SPC<I) j 


741 » 



1 AKBE < I ) ? DVBB < I ).» FBJ1 ( 11 ) ? FEM ( 1 10 »FBM( I ) >FEM( I >-?T< I ) ?T< I ) , TC I) 

7 

742. 



2Y8< ID r YE (1 1 ) r YB < I ) r YE ( I ) t RELB (I)r RELE < I ) ) 


743. 



YS02U) = <FEMU)*YE<I>+FBM<I)*YBU) )/FMO 


74-4. 


740 

CONTINUE 


745. 

c 




746. 

c 


S02 BALANCE IN THE FREEBOARD 


747. 

c 




.748. 



DO 741 I = MPIjMT 


749. 



J - I-Ml 


750. 



K = J-ML 


751. 



RHOGAS = PAV*MGAS/RG/T<I) 


752. 



Vise = 3.72E-6#T<I)**0.676 


753. 



DPSVE = 0.5*<DPSEC J)+DPSEU\) ) 


754. 



BPWME = 0.5*<DPWE( J)+DP!JE(K) ) 


755. 



CALL VEL ( VISC » RHOGAS / G , RHOBEB ? DPSVE ? UMFAV r UTAV ) 


756. 



RT = <HB<IO-HB<J))/ABS<UO(I>-UTAV> 


757. 



WAHOLD(I) * <2.0#UEA<J)-WEA<K> >*RT 


758. 



VAHOLD = WAHQLD < I ) /RHOBED 


'759. 



NA = VAH0LD*6.0/<PI*DPSV£’t:*3> 


760. 



AK = AKAD (FS? DPSVE? T< I > ) 


761, 



ANR = FM0SYSQ2 ( I — 1 ) +RELB < I ) +REL£< I ) 


762. 



DR = FMG + NA*PI*DPSVE**3/6.0 *AK*PAV/RG/T < I ) 


763. 



YS02U) * ANR/DR 


764. 

741 

CONTINUE 


765. 



ETSC-1 . -FMQ*YS02 < MT > /FRS 


766. 



EE=ETS— ETSC 


767. 



CALL CRRECT C ITRY 1 INDX»DETS?ETS1 ? E-TSOrETS? El »£2? EE? EETSM ) 


768. 



IF<INDX.EQ.2)G0 TO 310 


769. 


300 

CONTINUE 


77 0. 



WRITE ( 6 y 3600 ) 


771. 

3600 

FORMATUOUlOXr ' ETS HAS NOT CONVERGED. S.NO. = 3600' ?/> 


772 » 


810 

CONTINUE 


773. 



YGQ<3)=YS02<MT) 


774. 



WRITE (6 ? 2005 )ETS?FS? CAS? CASE 


" 7 75 . 



1 r < H ( I ) r YB U ) , YE< I ) ? 2AVG < I ) ? YS02 ( I ) »RELB <1)7 RELE < I ) ? 1^2 ? MT ) 


776. 

C 




777. 

C 


NOX CALCULATIONS 


778. 

c 




779. 

CO 

Hi 

H*- 

IF < INOX .£0. 0) GO TO 314 
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780. 

791. 

792. 

793. 
73*} , 
735. 
786. 

797. 

798. 

7 89. 

790. 

791. 

792. 

793. 

794. 
79.5. 

796, 

797, 
793, 

799. 
900. 
SOI. 
802, 

803 . 

804, 
SOS. 
306. 

807. 

808. 
809. 
910. 
811. 
912. 
313. 
814. 

315. 

316, 

817, 

818. 

819. 

820 . 
821 . 
822. 
823. 
324 , 

825. 

826. 
327. 
323 • 

829. 

830. 
331. 
832. 
333. 

834, 

835. 

836. 

837, 

938. 

939. 


750 


C 

C 

c 


760 

C 

c 

c 


770 


751 

C 

C 

e 

914 


FRN - WCOAL * U.-XU) * XN/MN * FLOAT; IGNITE) 

ANITRO * UCOAL -it (l.-XU) t XN * RN / MN - CLGSS?NCHAR/CCHAR/MN 

DO 750 I 2j.MT 
SENS -= GB(I)*VGASN/RUGAS 
GENE ' GE < I ) * VGASN/RVGAS 
RELB< I) “ RRB< I ) /TCRATE * ANITRO +GENB 
RELE;i) = RRE (I ) /TCRATE * ANITRO + GENE 

CONTINUE 

YB(1) = 0.0 
YEC1) = 0.0 
FR ~ 5.24E7 
AE =• 34000.0 

NOX BALANCE IN THE BED 

DO 760 I = 2 7 Ml 

II = 1-1 

TAVB = ;T(I)+TPBa))/2,0 

taoe - ct;i)+tpe;i>)/2.o 

ARB = FRlcEXP; -AE/1 ,936/TAUB ) 

AKE = FR * EXP< -AE/U9S6/TAVE > 

AMQBF = 6.0*RH0BEB*U.-EMF)/;DCSVB*RH0Cm(CCHAR> 

AM = AMQBFXcXCI) 

CALL GPHASE < AI\B » AKE> AM. PAOrRG t ETUBE C 1) f EPB C I ) » EPC < I ) 7 AKBE < I ) 7 
lDOBB(I) » FBM< II ) jFEM (ill 7FBM< I > 7 FEN (I)rT(I) > TAVBf TAOE 7 YB C II ) , 

2 YE; ID fYB<I) fYE(I) ?RELB<I> 7RELE(I) ) 

ynqx ; i ) - < fbm<i)*yb;dffem;i>*yecd )/fmo 

CONTINUE 

NOX BALANCE IN THE FREEBOARD 

BO 770 I = MP1 7 MT 
TAVB = CT;i-)+TPB(I))/2.0 
J = It-MI 
K = J+l 

DCSVE = 0.5#<DCSE< J)+DCSE(K)) 

x;n = wchqld; i )*cghar/ ;wchqlb; i ) +waholb< i ) ) 

CARGOS Cl) = WCHOLD < I ) YCCHAR/OOBBEF ( I ) 

VCHOLB = WCHOLD ( I j /RHOCH 
NC = UCH0LB*6,0/;pI*BCSVE**3> 

ANNO = FRtfEXP (-AE/1 . 986/TAUB ) 

AMR = FMQ)KYNOX < I— 1 ) + RELB(I) + RELECI) 

DR = FMO f NG*Pi*DCSUE**2 *A!\N0*PAU/RG/TAU8 
YNOXCI) = ANR/DR 

CONTINUE 

ENOX = FMO*YNOX(MT) 

EINDEX = ENOX/WCOAL 
ETN = 1,0 - ENOX /FRN 
ENOX = ENOX/FNO 

kjRITE < 6 r 2007 ) EXAIF 7 TAV jr ETN 7 ENOX 7 EINDEX r < H ( I ) 7 YB< I ) 7 YE( I ) fX< I ) 7 
1CARCQN < I ) r ZAVe; I > 1 YNOX < I ) > RELB < I > r RELE < I ) 1 1=2 ?MT> 

CONtlMUE 

MAIN OUTPUT 4 


CONTINUE 

YG0;2>=YC02<MT> 

YGO( 4)=YH20 
YG0<5)=YC0(MT> 

URITE;6»2006) (YG0(I>?I=D5) 



940. 

841. 

942. 

343. 

344. 
845. 
346. 
947. 
843 . 

349. 

350. 

351. 
852. 

353. 

354. 

855. 

856. 

357. 

358. 

359. 

360. 

361. 

362. 

363. 

364. 
965. 

366, 

367, 
363. 
369. 
870. 

371. 

372. 

373. 

874. 

875. 

376. 

377. 
373. 
379. 
880. 
SSI, 
332. 
833. 
934. 
335, 
886 , 
837. 
888 . 
989. 

390, 

391. 

392. 

393, 
894. 
395. 
996. 
397. 
S99 , 
399. 
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19 HLMF . EQ . 0 .0 ) UMF - SOLUOL 

IF ( HLMF .ED. 0.0 3 HLilF - HEIGHT < OMF ) 

IF (HLF .EQ. 0.0) HLF * H(M1> 

IF ( IF’RES .EQ, 0) GO TQ 950 
900 CONTINUE 
C 

C PRESSURE DROP CALCULATION 

C 

C ********* ********************************** 

C ALL THE PRESSURE DROP GIVEN IN CM OF WATER 

C ********* ********************************** 

C 

C PRES5UF(E DROP CALCULATIONS ACROSS THE DISTRIBUTOR 

C 

TEMP * T<2> 

RHOFG = PF * MGAS / (RB*TEMP) 

UOR = FMF * RG * TEMP/ PF /( AND*0.25*PI*BMZL*S2> 

DPDIS = < UQR/0.6 > **2 * RHOFG / (2,0*6) 

WRITE ( 6 r 2050 ) DPDIS 
C 

C PRESSURE DROP CALCULATIONS IN THE FLUDI2IED BED SECTION 

C 

WRITE (6 , 2051 ) 

Ml - Ml 

IF ( IFBC . GT . 0) N1 = Ml - 1 

DO 920 I a 2 j Ml 

DP FLU = (l,0-EMF)*a.0-EPBa))*(HCI)--Ha-l)) * RHOBED 

WRITE (6r 2052) I? DPFLU 
920 CONTINUE 

IF (IFBC , EQ , 0 ) GO TO 930 
C 

C PRESSURE DROP CALCULATIONS IN THE FIXED BED SECTION 

p 

El = ( H < Ml ) - H(M1-1) ) / G 
E2 = ( 1.0 - EMF ) / EMF ** 3 

DPFIX = El * ( 150.0 * ( 1.0 - EMF ) * E2 * DISC * UQCrti > 

1 / DPSVB ** 2 + 1.75 * E2 * RHOGAS * UO (Ml 3 **2/DPS«,'B ) 

930 CONTINUE- 

IF ( IFBC .EQ. 0 ) DPFIX = 0.0 
WRITE (6,2053) DPFIX 
950 CONTINUE 

WRITE (6,00 
WRITE ( 6 , OPCF 1 ) 

WRITE ( 6 ,2060 ) 

DO 910 I = 2, Ml 

WRITE(6,2070> I ?H<J ) r ZAUG< I > >BPAV< I ) tUB( I ) > EPB( I ) jEPCI I) »U0( I ) ? 
1UMF(I) 

910 CONTINUE 

WRITE (6,2075) 

DO 940 I = lrMT 

WRITE ( 6 j 2030 ) I , H ( I > f DT< I ) » AT < I ) 

940 CONTINUE 

1000 FORMAT (511) 

1001 FORMAT ( 8F10 .0 > 

1010 FORMAT ( 2A4/ (8F10 .0 ) ) 

2000 FORMAT ( ' O' i 1X,2A4 , 10X? 'XCAO - ' »F6,3?iOX» 'XMGO * '-F6.3xlOX; 

* ' XSI02 = ' ? F6 , 3 » 10X r 'XC02 = ',F6.3»/> 

2001 F0RMATC//10X, 'RESULTS , ALL TEMPERATURES IN CENTIGRADE'// 

*' ETC»XAU,TAU , ITRIALj = ' j 3E12 . 4 , 14// 

12X»'I'»6X»'HT'rl0X»'YB',10Xr 'YE' jIOX, ' YDS ' , 3X , ' YCOE ' j 7X » ' 


YC02E ' 
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900.- 

901-,- 

90’.- 

903. 
904'. 
905; 

904, - 
907. 
903.- 
9 09. 
910'. 
911 . 
912; 

913. ■ 

914. 
<Hz* 

91 6% 

917. ' 

918, 
9l9 

920. 

921. 

922. 

923. 

924. 

925. 
924, 

927. 

928. 

929. 

930. - 

931. ' 

932. 

933. 
934; 
935. 
936; 
937". 
933. 

939, 

940. 
941 . 
.942 . 
943; 

944. 

945. 

946. 

947. 

948. 

949. 

950. 

951 . 
952; 
953. 
954; 
955; 

956. 

957 . 

958. 

959. 


27X t ' YC02B' ?9X? 'X' ?9X» 'ZMG',/(13, 1P9E12.4) ; 

2002 FORMAT C //2X? ' I- / , 6X? 'HT' ? 10X j 'YO' ,10 Xj 'YU' ,10Y, ' YCO' r9X, ' YC02' - 
*SX , ' T ' r 10X-? ' TPB ' ? 9X TPE ' 7 <?X , ' ZAVG ' , / 7 < 13 ? 1 P9EI2 . 3 ) ) 

2005 FORMAT < ' 0' i ' CETSrFS? CAS r CASE) = ' /10X > 4E12 . 4 r / , ' 0 ' , 7Xf 'HT.'?SXf 

1 ' YS82B ' > 3X ? 'YS02E' 7?X? ' ZAVG ' ,10Xx 'YS02' 7 IOX 7 'RELB' ->9Xj '.PELS' t/-> 
2<lP7Ei3.4>) 

2006 FORMATCY' 1 OUTLET SAS CONCENTRATION' ?//5X? '02 ' ? U>X, 'C02' r 4>x, ' S02' 
19X?'H20' 7 9X ?‘ ' CO ' ? /5E12’. 4// ) 

2007 FORMAT ( ' O' ,7Xj ' EXAIR ? TAV > ETN r ENOXjEINDEX =>'t/j 10X? 5E12, 4 7 / j ' 0 ' 7 
17XV'HT'»SX» / yNQX£f'f*8X» 'YNGXE ' t9Xi 'X' 7 IIX 7 'CARCQN' t8Xt 'ZAVQ' t8Xj 
2'YNQX' » lOXf 'RELB' ?9X?' RELE' 7 / 7 ( 1P9E13.4 > ) 

2010' FORMAT ('0' ;5X- 7 'SURFACE VOL MEAN BIA.QF ADDITIVES FEED = DASVF * 
Ht»-F10,4»3Xr'GM' r5X» 'WEIGHT MEAN' DIA'. = DAUMF = ' ,F10. 4 ,3X 7 'CM' >/ ) 
2020’ FORMAT < '0' ? lXr2A4T3X> 'XCF = ' 7F5.3?3X» XCV = ' ,F5 .3, 3X7 'XH = '7 
+F5.3»3Xr'XN = ' rF5.3r3X> 'XS = ' ,F5.3 j3Xt 'XO -» ' ?F5 .3 » 3X? 'XU -= '• 
$F5.3r3X»'XU = ' ;F5. 2f/ r 'Q' 7 12X/ ' VM = ',F5.3,4Xr'V - ' 7 F 5 . 373 X 7 
S'HCQAL * ' 7 F 8 . 27 3X 7 ' GALS/GM' ?3X r ' XACAO “ 'jF5.37/> 

2030 FORMAT < 'O ' 7'T5 ?' K ' 7 TiO 7 ' FREEBOARD HT . ' 7 T29 7 'DPSE' 7 T43 7 ' DPWE ' 7 
If 559 'WEA' fT70 7 'DCSE' rT85j 'DCWE ' 7 TtOO 7 ' UEC ' 7/7 "O' 7 CT47l2rT10, 
21PEU,3rT26 7lPEl-l ,3f T39t IPEll .37T527 1PE11 .3 7 T67. IPEll .3,131 7 
31PEU .3? T?6 rlPEil .3) ) 

2040 F0P.MATC'0'7T21 » 'SURFACE VOL MEAN DIA OF COAL FEED = DCSVF - '7 

*FiQ.473X7 'CM' 75X7 'WT. MEAN DIA. - DCWMF - ' 7 FIO. 473Xr ' CM ' ,/ ) 

2050 FORMAT < '0' r40X7 'PRESSURE DROP ACROSS THE DISTRIBUTOR - 'flPEU.l 

2051 FORMAT < '0' 7 EOX 7 'COMP. NO' 7 13Xt 'PRESSURE DROP IN THE BED',/) 

2052 FORMAT < 20 X 7 IStEOXf'IPEH .4 > 

2053 FORMAT < '0' 7 40X7 'PRESSURE DROP IN THE FIXED BED SECTION 77 IPEll 

*4) 

2060 FORMAT < '0 ' r3X* ' I ' 7 3X7-'H£IGHT ' , 6X 7 ' ZAVG ' 7 3X7 ' AV . BUBBLE DIA' < 0 X 7 

1 'BUBBLE VEL, ' 74X7'BUBBLE FRAC. ' 7 5X» 'CLOUD FRAC. ' 76 X 7 'SUP .VELOCITY 
2 r 5X r 'MIN .FLU. VEL. ' r/) 

2070 FORMAT ( IS 7 F 8 .3 ,'2X r F 8.376 C 3X > 1PE12 . 4 7 2X ) > 

2075 FORMAT < 'O' 7 TIO 7 'COMPT.NO , ' 1 T25» ' HEIGHT ' 7T42f 'BED DIA.',T55 j 
1 'BED G/S AREA' ?/> 

2030 FORMAT" CT127r3jT257F6.27T407lPE10 .3, T55t 1PE10 .3) 

10000 STOP 
END 

FUNCTION AKAD(FS7DP7T) 

C 

C THIS SUBROUTINE CALCULATES LIMEST0NE-S02 REACTION RATE CONSTANT 

C 

DIMENSION FB< 15) 7 RR ( l5) rRB< 15) 7RC(15) 

DATA FB/0,0»0.05f 0.1 7 0.270. 25 7 0,3 7 0.357 0.4 7 0.4257 0,45 7 0.475? 0.5 7 

*0.525r0.55f0*i / 

DATA RK/1 ,070, 231 rQ. 1 6 7 0 , 038 7 0 . 001 7 0 . 0004 7 0 , 000370 , 00022 r 0 . 0002 7 
10. OOOISt 0.00016 7 Q. OOOlSrO .0001470 .00013 7 O .00011 / 

DATA RB/1. 070.58470. 51570. 337;0.213j0. 09570. 022, 0.0071 -O.OOS? 

1- 0.00570,004»0. 003670. 00370.0027570. 00225 / 

DATA RC/1. 070.938 7 0.89470.802? 0.749 7 0.6877 0.609, 0,51 7 0.445? 0.367, 
1 0 ,272? 0.18 tO. 121 7 0.076 ? 0.022 / 

DP1=0 .2 
DP2-0 . 1 
DP3=0 ,01 

rf(DP , GE. DP 2 ) XXX7=AL0G<BP/DP2)/AL0G(BP1/DP2) 

IF ( DP' .LT, BP2) XXX=AL(3G ( DP/DP3 ) /ALQG ( DP2/DP3 ) 

ALIME=0 . 0 
AKAD = 0.0 

IF ( FS .GE, 1,0) RETURN 


N~I 


DO 10 1=2? 13 



960. 

941. 

942 . 

943. 

944 . 

945. 
944. 
947. 
943. 
949. 
9-70. 
971. 
97 , 2 . 

973. 

974. 

975. 
974. 
977, 
979. 
979 , 
930. 
991. 

982. 

983. 

984. 
995. 
984. 

987. 

988. 

989. 

990. 

991. 

992. 

993. 

994. 

995. 
994. 
997. 
993. 
999. 

1000 . 

1001 . 

1002. 

1003. 

1004. 

1005. 

1006. 

1007. 

1008. 

1009. 

1010 . 
1011 . 
1012 . 

1013. 

1014. 

1015. 

1016. 

1017. 

1018. 
1019. 
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IF' FS *LE. FB ( I ) ) GO 10 11 

10 CONTINUE 

11 CONTINUE 
Mi=N— 1 

A=(FS-FP(N1 ))/<FB'N>-FB(Nl> ) 

IF < DP ,LT. DP2> GO TO 12 
R1=(RR(N)/RR<N1) ) **A*RR < Ml ) 

R2“ ( RB( N ) /RB ( N1 ) )**A*RB(M1) 

,80 TO 13 

12 CONTINUE 

R1=(RBCN)/RB<N1) ) **A#F;B (N1 ) 

R2’(RC,CN)/RC(N1> >*«A*RC(N1) 

13 CONTINUE 
ALIME=(R1/R2)**XXX*R2. 

IF ( ALINE . 6T . 1.0) ALINE=1.0 

IF CT .LT, 1253.0) SB = 35.9*1 - 3.47S04 

IF (T ,G£, 1253,0) SG = ~38.43*T + 5.64E04 

IF < SG , LT . 100.0 ) SG = 100.0 

AKAB = 490.0.*EXP(-17500.0/1.987/T>* SG * ALIME 

RETURN 

END 

SUBROUTINE ARM < AMR iT , P , DC » TP , Y02 , RG . NC 7 AKC02 , PHI : 

REAL MC 
C 

C THIS COMPUTES REACTION RATE CONSTANT FOR CHAR COMBUSTION AMR, 

C RATE CONSTANT FOR C-C02 REACTION AND THE CHAR PARTICLE TEMPERATUR 

C 

EM=*1.Q 

SIGM=1.36£-12 
INDX=0 
DTS= 200.0 
TP-300. 0 

DO l'OQ 1=1 r20 

ETSMAX=0.005*TP 

ANS=8710. O-tEXP < -35700 , 0/1 . 996/TP ) 

TAV = <T+TP)*,5 
D=4.251!(TAV/1S00.)**1 ,73/P 

C0NB=0 . 632E-5*SQRT < TAV ) / ( 1 . +245 . /TAV*10 . **< -12 . /TAV ) > 

Z = 2500. * EXP (-12400 . /I . 986/TAV) 

IF (BC .LE. 0.005) PHI •= (2 • tZ+2 . ) /< Z+2 . ) 

IF (BC .GT, 0.005 .AND. BC , LE. 0.10> PHI = 1 . / < Z+2 . ) * ( ( 2 . SZ+2 . ) 

* - Z*(DC-0.005>/0.095> 

IF (BC .GT. 0,10) PHI = 1,0 . 

Q = 7900>0*(2./PHI-l)+2340.0*(2.-2./PHI) 

AKF=24 . .*F'HI-*B/ ( DC*RG*TAV > 

AKR= ( RG*TA V/MC ) / < 1 ./ AKS+i . / AKF ) 

RHS - Af\ft*P*Y02*MC*Cl/(RG*TAV). - EM*SIGM*(TP**‘ , -T**4 ) 

ETS = TP - T - RHStBC/ (2.0TCGMB) 

CALL CRRECT ( I ? INBX , DTS r TP1 , TP2 , TP , El , E2 , ETS , ETSMAX ) 

IF (INBX.EQ.2) GO TO 110 
100 CONTINUE 

WRITE (6, 4000) TP, ETS 

4000 FORMAT ( ' 0 ' , 10X, 'TP CALCULATION HAS NOT CONVERGED ',/, 10X TP , ETS 
1 ' , 1R2E12.3) 

110 CONTINUE 

AKRC02 = 4 . lE03.fEXP ( -59200 . /I , 9S7/TAV ) 

B - 3.26*(TAV/1300. )**1 ,75/P 

AKFC02 - 2.*PHI*B/BC 

AKC02 = 1,/(1 ./AKRC'02+1./AKFC02> 

RETURN 
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1020. 


END 

1021. 


SUBROUTINE AREA C ZI 7 DTI* ATI ) 

1022'. 


COMMON- /A/ ZH£< 10.) 7 AH£( 10 ) 7 PV< 10) ? PH< 10) rZF< 10) 7 Fr C ( 10 ) - D TUBE < L 

1023 . 


1-DVBX 60 ) r DVBEFF < 60‘) 7 F-FAD < 10 ) 7 ZD IS < 10 > 7 FD C 10 ) 7 AHEAV <60)7 ETUBE < AO > 

1024. 


2U0 060 )■ ,'UMF f.600‘7 H < 60 ) rrtT<60) 70T<60) ?T<60> jX<60> 7AKBE<aO> 7 j’B< aO) 7 

1025. 


3YE < 60->- 7'Y COEX S0>, EPS ( 60 ) j EPC < 60 > 7 DVB6 ( 80 ) » BVBBEF < AO ) » DfiAV <60)? 

1026'. 


4UB< 60 ) 7 UTC-C-600 ? UTA <60) ?2B<10) ,4TB!10) 7 YVE < 60 ) 7 ZAVG < 60 ) - 1 ARR ■. 10 > 

1027V 


COMMON- /BY YBO < SO ) 7-YEO<60 ) » DB<60) 7 BPSVB 7 DPUMBjDCSVBr BCUMB r RHUCH 

1023. 


lHLFr VMF 7 FMQtFMF 7 UF 7 PF 7 TF 7 RG 7 G 7 MGAS 7 OPFIX 7 BPFLU 7 DPDISrRHOSED j 

1029', 


2EMF f PAV 7 HCR 7 BED VOL. 7 EFFVOL 7 SOLVOL? TETUBE 7 HLMF 7 PI . AND 7 DNZL 7 

1030'. 


3FWVFSW rBZAV j MFEED 7 MDXS 7 MTHE 7 MTB 7 MT 7 Ml 7 M 7 ICR 7 IFBC ? NTC 

1031 . 

C 


1032'. 

£• 

CALCULATION' OF' THE CROSS SECTIONAL AREA GIVEN THE HEIGHT ABOVE 

i0'33". 

c. 

THE DISTRIBUTOR 

1034V- 

e 


li03S. 


DO 10 J = 1 7 MTB 

1 ; 0"3'6. 


IF <• ZI .GT. 2B(J)' ) GO TO 10 

1037. 


RJMl = SORT ( ATB <- J- 1 ) / PI ) 

1033. 


AH =* < ZI - ZB(J-l) ) / ( ZB'JO - ZB(J-l) ) 

1-039V 


Bl- = SORT < ATB < J )- / ATB(J-l) ) - 1.0 

1040V 


R-I a < 1,0 + A1 * Bl ) * RJMl 

1041.. 


DTI' a’ 3,0' r RI 

1042.. 


ATI =- PI * RI **■ 2 

1043. 


GO' TO 20 

1044.. 

iff' 

CONTINUE 

1045. 

20 

CONTINUE 

1046. 


RETURN' 

1047. 


END' 

1048. 


SUBROUTINE- CRREC-Tf I 7 INDX , DX 7 XI * X2 rXNEU 7 El , E2 7 E 7 EMAX ) 

1049 V 

C 

IT NUMBER OF- THIS TRIAL » 1 FOR FIRST TRIAL 

1050. 

C- 

INDXJ INDEX OF THE TRIAL LEVEL 

10 SI'.. 

c 

INDX=OJ JUST PROCEEDING' 

1052V 

c 

INDX=i: THE ROOT HAS BEEN: CAUGHT BETWEEN XI AND X2 

10 53". 

c 

INfiX=2: THE ITERATION HAS' CONVERGED 

1-054 , 


IF < ABS'CE)’ . ST .EMAX- ) ! GO' TO- 5 

1055. 


INDX=2' 

1056 .. 


Return 

1057. 

5 

CONTINUE 

1053. 


IF ( INBX.ES ,1 )- GO TO I'OO 

1059. 


X2~XNEW' 

1060. 


E2aE 

1061,- 


IF(I.EBVf) GO T0 ! 1-0 

1062, 


IF<E1*E2.,LEV0‘. ) INDXal- 

1063, 


IF ( INDX .-EG ,1 ) GO' TO 150' 

1064 , 

10 

XlaX2 

1065. 


El =E2 

1066. 


XNEWaXNEW+DX 

1067 , 


RETURN 

1068. 

100' 

CONTINUE 

1069V 


IF<Ei*£.LT.OV) GO' TO 110 

1070V 


El=E 

1071 . 


X‘1=XNEU' 

1072, 


GO TO 150' 

1073. 

110 

£2=E 

1074, 


X2=XNEW 

1075 , 

150 

CONTINUE 

1076-. 


XNEWa (X1-X2 ) SE2/ < E2-E1 ) +X2 

1077. 


RETURN 

1079. 


END 

1079, 


SUBROUTINE DESIGN 
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ORIGINAL PAGE IS 
OP POOR QUALITY 


LQSO. 

1031 . 
1082. 
1083. 
1094 . 

1085. 

1086. 

1087. 

1088. 
10S9. 

1070. 

1071 . 

1072. 

1073. 

1094. 

1095. 

1096. 

1097. 
1093. 

1099, 

1100 . 
1101 . 
1102 . 

1103. 

1104. 

1105. 

1106. 

1107. 

1108, 

1109. 

1110 . 
1111 . 
1112 . 

1113. 

1114. 

1115. 

1116. 

1117. 

1118. 

1119. 

1120 . 
1121 . 
1122. 
1123. 
1124 . 

1125. 

1126. 

1127. 

1128. 

1129. 

1130. 
1131 . 

1132. 

1133, 
1134 . 

1135. 

1136. 

1137. 
1133. 
1139. 


COMMON /A/ ZHE ( 10 ) ,AHE<10> ?PV( 10,' >PH<10) .’FdO) -FFC(IO) «0TIJB£(10 
1DVB(60) r OVBEFF ( 60 ) , FFAD ( 10 ) t ZDIS ( 10 ) ?FD( 10) .AHEAV(oO) - E TUBE 1 60 ) 7 
2U0 ( 40)7 UMF ( 60 ) 7 H ( 40 ) 7AT(<sO> , DT (60) 7 K 6 O) ,Xl60) » AKBE( oO) rfX'60) , 
3'TE<60> j YCQ£(60 ) 7 EPS <60 »EPC<60 ) 1 DOBS (60) j 0UBBEF<60; ;D8ftV< 60 ) 7 
4UB<60) 7UTCC60) 7UTrt<60) 7 ZB (-10) 7 ATB< 10 ) 7 YVE( *0 ) 7ZAVG<60) , IARR<iO> 

COMMON /B/ YBQ < 60 ) 7 YEQ < 60 > 7 DB ( 60 ) 7 DPSV B 1 DPUMB » DCSVB 1 DCWMB 7 RHOCH * 
1 HLF 1 VMF .FMO 7FMF 7 UF 7 PFrTp 7 R 87 G? MGAS 7 DPFIX 7DPFLU 7 DPDIS t RHGBEB? 

2 EMF 7 PAV 7 HCR 7 BEDVOL 7 EFFVOL 7 SOLVQL * TETUBE 7 HLMF- PI , AND 7 DNZL 7 
3 FW 1 FSW 7 DZAV 7 MFEED j HD IS 7 HTHE 7 MTB 7 MT 7 M 1 7 M , ICR . IFPC 7 NTC 
C 

C AXIAL VARIATION OF BED CROSS SECTION 

C 

READ C 5 . 1000 ) Al 7 A 2 >A 3 rA 4 

READ (SrlOOl) MTBj (ZB< J) 7ATB<J ) 7 J = 1? MTB) 


C 

C IARRNG 123 

C 1 — VERTICAL INLINE ARRANGEMENT 

C 2 VERTICAL STAGGERED ARRANGEMENT 

C 3 HORIZONTAL INLINE ARRANGEMENT 

C 4 HORIZONTAL STAGGERED ARRANGEMENT 

C 

c 


C HEAT EXCHANGE TUBES 

READ (571002) MTHE 7 (ZHE C J+l ) 7 AHE <-J ) 7 DTUBE<J ) 7 PV ( J ) 7 PH < J ) 7 
1IARR( J ) 7 J = IfMTHE) 

C 

C LOCATION OF FEED AND DISCHARGE 

READ. (5/1001) MFEED* (ZF(J) 7FFC(J) »FFAD(J ) 7 J = 1 » MFEED) 

C 

READ (SflOOl) MDISr(ZDIS( J) ,FD( J ) 7 J = 1?MDIS) 

C 

C DISTRIBUTOR 

C 

READ- (571003) AND t DNZL r FW 7 FSW 

DO 100 J = 1. MTHE 
IF (AHE-(J) . GT-. 0.0) GO TO 100 
IF DTUBE ( J ) .EQ. 0.0) GO TO 100 
AHE(J) = PI * DTUBE(J) / (PH< J)*PV( J) ) 

100 CONTINUE 

C 

C CONDITION FOR COMPUTING AVERAGE CELL SIZE 

C 

WRITE (672000) Al7A27A3rA4 
WRITE (672001) 

WRITE (672002) <ZB< J) jATB( J ) 7 J = I 7 MTB) 

WRITE ( 67 2003 ) 

WRITE (6 r 2004 ) (ZHE (J+l ) 7 AHE ( J ) 7 DTUBE ( J ) 7pV( J) ,PH( J ) 7 TARR < J ) 7 
1J = 1 7 MTHE) 

WRITE (672005) 

WRITE (672006) (ZF(J) 7pFC(J) tFFAD< J ) 7 J = 1. MFEED) 

WRITE (472007) 

WRITE (6r2008) ( ZDIS ( J ) » FD ( J ) 7 J - I 7 MDIS? 

WRITE (67 2009) AND 7 DNZL 7 FW 7 FSW 
Z1 = ZB( 1 ) 

ABED1 = ATB<1) 

DBED1 - SORT (4.0 * ABED1 / PI) 

DV8( 1 > = 0.0 
DVBEFF(l) =0.0 
ZHE(l) = 0.0 
DZAV =30.0 
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1140. 

1141’. 

1142.. 

-1143. 

1 1.44 . 
1145# ' 

11,46. 
1147. ■ 
1149. . 

1149 . 

1150. 

1151. 


1152. 

1153# 

30 

1154# 

1155. 

40 

1156. 

20 

1157. 

1153. 

1159. 

1160. 
1 161 . 
1162. 

50 

1163. 

10 

1164. 

1000 

1165. 

1001 

1166. 

1002 

1167 . 

1003 

1168. 

2000 

1169. 

1170. 

2001 

1171. 

2002 

1172. 

1173. 

1174. 

2003 

1175. 

2004 

1176. 

1177. 

- 2005 

1179. 

2006 

1179. 
1130 . 

2007 

1181. 

2008 

1182. 
1133. 
1184. 
1135. 
USA, 
1 1S7 . 
1133, 

1189. 

1190. 

2009 

1191 . 

C 

1192. 

c 

1193. 

c 

1194. 

1195. 

1196. 

1197. 
1199. 
1 1 9? . 

c 


N-TC. ■* I FT X < ZB ('MTB.i/BZ A V ).+ 1, 

DO 10 I = 1 7 NTC 

Z2 ®- Zl, +• DZAV 

IF U. EG. NTC) Z2. = ZB-CilTB). 

* DO 120 4 = l/MTHE 

IF ( ZHE(J), .LE., Z1 .AND. ZHE(J+L) , GE . Z2 ) GO. TO 30 
IF (■ ZHECJ) , UE .. Z2 .AND. ZHE(J-H) .LT. Z2 > GO TO 20 
FI ~ ( Z2 - ZHE ( J ) >• /- DZAV 
F2 = < ZHEU). - Zl ) / DZAV 
AH FI -It AHEU> + F2 t AH£<J-1> 

DIAT = FI * DTUBE<J) + F2 * DTUBEU-1) 

GO TO 40 
AH ’ ANE(J) 

DIAT - DTUB£(J) 

CONTINUE 
GO TO 50 

CONTINUE 

CONTINUE 

CALL AREA < Z2 7 DBED , ABED ) 

DVEKIU) ■=> 0.5 * < ABEB+ABEBl 5 * DZAV 
DV8EFF < 1+1 ) * DUB ( I+t ) * U.O - 0.25 t AH t DIAT) 

Z1 = Z2 
ABEDl = ABED 

CONTINUE 

FORMAT <4A4) 

FORMAT <I1/<8F10.0> > 

FORMAT (Il/<5F10.07ll0) ) 

FORMAT OFIO.O) 

FORMAT <'1'720X74A4 ? //) 

FORMAT < '0' »T41 *'HT .ABOVE DISTRIBUTOR 7 CM' fT31 j ' CROSS SECT-ZONAL '7 
1 'AREA OF BED 7 SQ.CM. ' r/> - 

FORMAT <T49»FS.4rT96rFl0.3) 

FORMAT ( ' 0 ' 7 T6 7 ' HEIGHT , CM ' 7 T20 7 ' SP . HEAT TRANS .AREA 7 SQ . CM/ CU .CM' 7 
1T58» 'BIA.OF TUBESrCM' jT78» ' VER.FTTCHtCM ' > T95; 'HOR .PITCH 7 CM' . 

2T1137 'TUBES ARRNGT'j/) 

FORMAT {TS 7 F 6 . 27 T 337 F 8 . 47 T 627 F 6 . 37 TS 27 FA. 37 T 997 F 6.37 ntSr 12 > 

FORMAT < '0' rT21 7 'SOLIDS FEED LEVEL' 7 131 7 ' FRACTION COAL FED',,' 
1T31, 'FRACTION LIMESTONE FED' 7 /) 

FORMAT (T27 jF6 .2tT5B 7 p 6 « 4 7 .T 88 7 F 6 . 4) 

FORMAT < '0'»T21 i 'SOLIDS DISCHARGE LEVEL ' 7 T51 7 'FRAC IIQN DISCHARGED' 
I7/) 

FORMAT C T2? 7 F4 . 2» T59 7 F6 . 4 ) 

FORMAT C'0'7 T127 ' MO . OF DISTRIBUTOR HOLES ' 7 TIP 7 ' - ' 7 X 45 7 FS . 1 ,/ 7 
l'O' 7TI27 'NOZZLE DIAMETER ' 7T4O7 7 T 45 7 F 7 .47 3 X 7 'CM'/'Q' 7 TI2/ 

4'FU' 7 T 4 O 7 '=' rT457FA.3»/7 '0' 7 TI 27 'FSU' , T40? 7T457F6.3) 

• RETURN 
END 

SUBROUTINE FBC < YH20 1 AKC 7 DCSVE 7 D VBB 7 ETU3E 7 FMO 7 GB , COB 7 GE 7 NC , 

1PAV 7PHI97PI7 RG7RVGAS 7 T7 T AVB 7 X02 7 YCQO 7‘YCG 7 YOO 7 YO 7 YVO , YV ? '02. 

2C0VB 7 C02 VB 7 V C020 7 VC02 ) 

REAL NC 

THIS SUBPROGRAM PERFORMS THE GAS PHASE MATERIAL BALANCE FOR 
O 27 CG 7 002 IN THE FREEBOARD 

A2 - PAV/RG/TAVB*NC*PI*BCSUE**2*AI\C 
A4 = PAV/RG/TAVB*NC-KPI^DCSVE'f!'lc2'itAKC02 
• YV = YVO-rOO/X02 
IF <YV .LT. 0.0) GO TO 100 
TO - 0.0 
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ORIGINAL PAGE IS 
OF POOR QUALITY 


1200. 

C 

ORIGINAL PAGE IS 

t201 , 

c 

OXYGEN 

1202. 

c 


1203. 


YC02 - FNa*YC020/(FMQ+A4) 

1204 . 


YCO - YCOO+2 . 0>(tft4#.YC02/FM0+ ( YVO— YV) -YCOVB 

1205. 


•GB - 0.0 

1206. 


GE = FMOY(YVO-YV) 

12.07. 


COB =■ 0.0 

1209. 


RETURN 

1209. 

100 

CONTINUE 

1210. 

c 


1211. 

c 

OXYGEN RICH CONDITION 

1212. 

c 


1213. 


Y 0 ■= 0.0 

1214. 


AKP ~ 3 . £10*EXP ( -16000 ./l. 987/T ' * CPAV/RG/T ) Y* 1 . 9* YH20**0 . 5* DUBBY 

1215. 


1 (1,-ETUBE) 

1216. 


INDEX « 0 

1217. 


YO = 0.0 

1213. 


DYO = 0.01 

1219. 


EYO = 0.001 

1220. 


DO 110 I = 1,20 

1221. 


AMR = FM0*YCQ0+2.0*A4/CFM0+A4)*(FM0*YC020+A2*YCYC2./PHIB-1. > > + 

1222, 


1 FMG*YU0*C0UB+A2* YO* < 2 . -2 . / PHIB ) 

1223. 


DR = FMQ+AKP'KC17.5*Ya/(l.+24.7*Y0) ) 

1224. 


1-2 , 0*A4*AKPY ( 17 . 5*Y0/ ( 1 . +24 ,7*Y0 ))/( FM0+A4 ) 

1225. 


YCO = ANR/DR 

1226. 


IF < YCO .LT. l.E-6) GO TO 130 

1227. 


YC02 » (FM0*YC020+A2*YO*(2./PHIB-l.) 

1229. 


1+AKP*YC0* 117. 5*Y07 ( 1 .+24 .7YY0 ))’>/( FM0+A4 > 

1229. 


YOC - YOO— YVQYXG2— AKPYYCOY ( 17 . 5YYQ/ ( 1 . +24 . 7.YY0 > ) /2 . 0/FMO 

1230. 


1-A2*Y0/PHIB/FM0 

1231. 


GO TO 140 

1232. 

130 

CONTINUE 

1233. 


YCO =0.0 

1234. 


YC02 = (FMO*YC020+A2*YO+FMO*YCOO)/(FMG> 

1235. 


YOC = Y00-YV0'KXO2-YC0Q/2.0-A2*Y0/FM0 

1236. 

140 

CONTINUE 

1237. 

c 

WRITE (6. 1901 I,YC0,YC02.YQ,YaC 

1239. 

C190 

FORMAT ( 5X, ' I , YCO , YCG2, YQ , YOC - ' / 1 4 , 1P4E1 2 . 3 > 

1239. 


IF (YOC. LT. 0.0) YOC = 0.0 

1240. 


IF ( YCQ2 .LT. 0.0) YCG2 =0.0 

1241. 


£R = YO - YOC 

1242. 


CALL CRRECT ( I , INDEX ,BY0, XI , X2, YO .£1 ,E2,ER,EY0) 

1243, 


IF (INDEX . EC! . 2) GO TO 120 

1244. 

110 

CONTINUE 

1245. 


WRITE (6,1000) YO , YOC , YOO 

1246. 

1000 

FORMAT ('O'jIOXj'YO HAS NOT CONVERGED. SUBROUTINE FSC' , /» 10X, ' YO 

1247, 


1 YOC, YOO = ' /1P3E12.3) 

1240. 


YE = YEO 

1249. 

o 

a 

iH 

GB = 0.0 

1250. 


GE = FMO*YVO 

1251. 


COB = AKP*YC0*(17.5*YQ/(1 .+24.7YY0) ) 

1252, 


IF (YCO . EG . 0,0) COB = FMOYYCOO 

1253. 


IF (YO , 3T. YGC) YO = YOC 

1254. 


RETURN 

1255. 


END 

1256. 


SUBROUTINE GPB ( YH20 » AKB , AKE , AKBE , AMODF , DVBB , EMF , EPB , EPC , ETUBE ? 

1257. 


1 FBMO , FBM , FEMO , FEM , D9 , COB , GE , P A V , PH I E , RG , RUGAS , T , Tfly g . TAUE < 

1259 , 


2VPR0D j X , X02 , X02C , YBO , Y3 , YCOEO , V COE , YEO, YE , YVEO - I'VE ? AKC02 , COY - C02 

1259. 


3C0UB •C02UB , YC02B0 , YC02B , YCQ2E0 , YC02E ) 
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1260 . 
1261 . 
1-262. 

1263 . 

1264. 

1265. 

1266 . 
1267. 
12'6S'. 
1269. 
1290. 

1271. 

1272. 

1273. 
1274'. 
f 273 . 
1 : 276-. 
1277', 
1279. 
1279. 

1290. 

1291. 

1292. - 
1293 
1294. 
1255 . 

1296 . 

1297 . 

1293. 
1299. 
12'90V 
129'lL 
1292'. 
1293 ;. 

1294 . 
129 S-. 

1296 . 

1297. 

1298. 

1299. 

1300. 
1301'. 
1302. 
1303'.' 

1304. 

1305. 

1306. 

1307. 
1308’. 

1309. " 

1310, 
1311 

1312. 

1313. 

1314. 

1315. 

1316. 
1-317. 
1319. 
1319. 


01-MENS I ON 0(25) <EK5) >AA'(16) .SB'. 4> 

C 

C THIS SUBPROGRAM FORMS- THE HEART OF THE CALCULATIONS FOR THE 

C 6AS PHASE BALANCES IN THE BED 

C 

A1 = AK'BE*0VBB*EPB*PAV/(RG*T> 

A2 - AM0DFYDVB8* ( EPC-EPB ) YAKB*PAV 7 <RG*TAVB> Y X 
A3 - AMQBFYBVBB'* < 1 , -EPC-ETUBE ) *AKE#PAV/< R6-YTAVE ) YX 
A-4‘ = AMOBFYOUBBY ( 1 . -EPC-ETUBE )-*AKC02YPAV/ (RGYTAVE) YX 
BO 150 I- - 1/25 
C 

C 0XYGEN ; CONCENTRATION IN EMULSION PHASE IS ZERO. 

C 

ISO A S (I)' = 0.0 

A'(i) = FEW T Ai 
A ( 40' = -A1-YCQ2VB" 

AN 5) = A1YX02C' 

AX7) = A-< 1 ) 

A'(9) = -A'l 
A'('10 ) = A 17 2.-0 
A'(12) = -2.0YA4’ 

A (13) = FEM + Al + A'4‘ 

AT 1‘4 ) = -Al. 

A‘(18> = -Al 

AN 19') = FBM + Al 

A'( 21 ) = A 1/702 

AN 22) = -A1YCOVB/X02 

AN 240 = -A2 

A'< 25 ) = FBM' + Al 4- A2 

B < i > = FEMO*'rVEO~FEMOrtrEO/X02+VPRQD 

BN2> = FEM0YYCaEa'+FEM0'YYE0YC0VB'/Xa2'+UPP.aDYCfJU 

BN3>- =■ FEMdYYCOOEO+'VPRODYCClU 1 

BN 4) = FBMOifcYC02B’0 

BN 5) = FBMOYYBO' 

CALL SIMCKA /B/5/25r'KS 1 ) 

YVE = B (' I ) 

IF (YVE ,-LE, 0.0) GO* TO' 10- 
YE =' 0V0> 

YCOE = B ( 2)’ 

YC02E = BN 30 
YC02B = BT'4) 

YB ■* B(5 )' 

GE = (FEMO*Y£0+A1YYB)/X02 
GB = A1YYVE 
COB = A1YYC0E 
GO TO 60 
10' CONTINUE 

C 

C OXYGEN CONCENTRATION IN EMULSION PHASE IS LARGE ENOUGH TO BURN 

C THE VOLATILES RELEASED 1 IN THAT COMPARTMENT 

C 

YVE =0.0 

AKP = 3VE10YEXP ( -16000 . 71 . 997/T ) * ( PAV/RG/T ) Y*1 . 8-Y YH20 YYO . 5YBVSB-T 
In 1 . -EPC-Ef UBE ) *EMF 
INDX = 0 
YE = 0.0 

Bye = 0.01 

IF (YEO .LE. 0,050 DYE ~ 0,002 
IF (YEO .LE. 0.02S-) BYE = 0.001 
EMAX =0.01 
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1320. 

1321 . 

1322. 

1323. 

1324. 

1325. 
1326* 
1327. 
1323. 

1329. 

1330. 

1331. 

1332. 

1333. 
133,4 . 
1335. 

1334. 

1337. 

1338. 

1339. 

1340. 

1341. 
13-42. 

1343. 

1344. 

1345. 
1344. 
1347. 
1343. 

1349. 

1350. 

1351 . 

1352. 

1353. 

1354. 

1355. 
1354. 
1357 1 
1359. 
1359. 
1340. 
1341 . 

1342. 

1343. 

1344. 

1345. 

1346. 

1347. 

1348. 

1349. 

1370. 

1371 . 

1372. 

1373. 

1374. 

1375. 
1374, 
1377. 
1278. 
1379, 




£10 160 I = 1 ? 1 6 
140 AA'I) * 0.0 

GO 50 I = lr 50 

AA<1> a FEM + Al + AKP*(17.5*YE/(1.+24.7*YE>) 

AA<2) = -AKP*<17.5*YE/(1.+24.7#YE> ) 

AA (3) = — Ai 

AA ( 4 ) - Al/2.0 

AA ( 5 ) = -2.0YA4 

AA< 4 ) - FEM+A1+A4 

AA(7) - -Al 

AA(10) = -Al 

AA (II) = FBM+A1 

AA < 15 ) ~ -A2 

AA( 16 ) = FBM + Al + A2 

BB( 1 ) = FEMOYYCQ£O+(F£MO*YVE0+VPRffD)*eaV8+VPRaOYCBy+A3* 
l(2.-2,/PHIE)*YS ■ 

BB<2) = FEM0YYCQ2£0+VPRQB:YCQ2y+A3Y< 2 ,/PHIE-l . J * YE 
BB<3) a F3MOYYC02BO 
BB(4 ) = FBM0*YBG+A1*Y£ 

CALL SIMQ C AA r BB f 4 f 16 . I\S ) 

YCOE a SBO.) 

YC02E = BB<2) 

YC02B = BB(3) 

YB = BBC4) 

ANR = FEMOYYEO-A1Y< YE-YB^AaYYE/PHIE-tFEMQ-YYVEO+VPRQD ) YXQ2- 
1 Af\P*YC0E* ( 17 . 5-YYE/ < 1 . +24 . 7*YE) ) /2 . 0 
YEC = ANR/FEM 

IF (YEC ,LT . 0.0) YEC = 0.0 

IF (YEC .EO. 0.0 .AND . YEO »LT. 0.005) IE a 0.0 
ER = YE— YEC 

CALL CRRECT ( I > IN0X t D YE r XI t X2 1 YE 7 El / E2 , ER > EMnX ) 

IF ( INOX , EQ . 2) GO TO 60 
50 CONTINUE 

WRITE < 67 1000 ) YE 7 YEC 7 YB 7 YBO> YEO 

1000 FORMAT <'0'7l0X?'YE HAS NOT CONVERGED . SUBROUTINE GPB ' 7 / j 10X 7 'YE 
1 YEC > YB 7 YBO » YEO * '.1P5E12.3) 

YE a YEO 
40 CONTINUE 


IF 

(YE 

.LT. 

0.0) 

YE 

= 0.0 

IF 

(YE 

,GT. 

YEC) 

YE 

= YEC 

IF 

< YB 

.LT. 

0.0) 

YB 

= 0.0 

IF 

(YCO 

2B . 

LT. 0- 

.0) 

YC02B = 0.0 

IF 

(YCO 

or 

.LT.’ < 

).0) 

YC02E = 0. 


GE a FEMQ-YYVEO + VPROB 
GB a o.O 

COB = AKP>ltYC0E*(i7.5.YYE/(i.+24.7YYE> )+Al*YCOE 

RETURN 

END 

SUBROUTINE GPHASE< ARB 7 ARE 7 AM 7 PAV 7 RG 7 ETUBE 7 EPB , EPC 7 AKBE 7 OVBP 7 FBMO 
YFEMO 7 FBMrFEM 7 T »'TB 7 TE> YBO 7 YEO , YBl 7 YE1 . GEMS 7 GENE > 

C 

C THIS SUBPROGRAM IS USED TO CALCULATE THE SG2 AND NOX 
C CONCENTRATIONS IN THE BED 
C 

Bl= ( ( 1 . -ETUBE-EPC ) YAKYARE/ CE+ARBEYEPB/T) -YPAV/RGYDUPP+FEM 
ALF=AKPEYEPBYDVBP*PAV/ (B1YRGYT) 

D2 a FBM+ALF-YFEM+ ( < EpC-EPB ) YARB/TB + 

1 ALF Y < 1 . O-EPC-ETUBE ) YAKE/TE > YDVBBYAMYPA V/RG 
IF (B2 .EQ. 0.0) YBl a o.O 

IF (D2 , NE . 0.0) YBla<FPMOYYBO+GENB+ALFYFEMO'YYEO )/D2 
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1380. 

1331. 

1332. 

1333. 

1334. 
1385. 

1336. 

1337. 
1333. 

1389. 

1390. 

1391.. 
1392. 
1393 '. 

1394 . 

1395. - 
1396'. 
1397'. 
1‘398. 

1399. 

1400. 

1401. 

1402. 

1403. 
1404'. 

1405. 

1406. 

1407. 

1409.. 

1409. 

1410. 

1411. 

1412. 

1413. 

1414. 

1415. 

1416. 

1417. 
1413, 

1419. 

1420. 

1421. 
1-422', 

1423. 

1424. 

1425. 

1426. 

1427. 
142S. 

1429. 

1430. 

1431. - 

1432. 

1433. 

1434 .. 

1435. 

1436 . 

1437. 

1438. 

1439. 


Y£l=( YEQ.tFEMO+GENE ) /D HALF'S YE 1 

RETURN 

END 

SUBROUTINE HAREA ( ATI 7 DTI, ZI ) 

COMMON /A/ ZHE(10> > AHE< 10> »P'HiO) »PH< 10) , ZF ' 10 > r FFC < 10 ) ? 0 TUBE < 10 ) 
1BVB(60> 7 DVBEFF ( 60 ) jFFAD < 10 > > ZD IS < 10 ) >FD ( 10 > , AHEAV ( 60) rETUPECoO) * 
DUO C 60 ) rUMF(60) , H ( 60 ) t AT < 60 ) > DT ( 60 ) 7 F < 60 ) 7 X < 60 ) r AKBE< 60 > > YS < 60 j 
3YE ( 60 > r YCOE ( 60 ? tEPB( 60.) jEPC' 60) rDVBB(60) ■> DVBBEF <60)7 DBA V ( 60 ' r 
4UB (-60 ) 7 UTC < 60 > > UTA < 60 ) t ZB < 10 ) , ATB ( 10 > , YVE ( 60 ) , ZAVG ( t>0 > 7 tARR (10) 
COMMON /&/ YBO ( 60.) 7 YEO ( 60 > 7 DB < 60 ) 7 DPSVB 7 BPUMB 7 BCSVB 7 OCUMB r ~ HOCH . 
1HLF 7 VMF 7 FM 07 FMF 7 UFyPF » TFrRG? G 7 MGAS 7 DPEIX r DPFLU 7 DPDIS 7 RHQBE ? 7 
2EMF 7 PA V 7 HCR 7 BED VOL 7 EFFVGL 7 SOL VOL 7 TETUBE 7 HLMF 7 PI 7 AMD 7 DNZL 7 
3FU 7 FSN) BZAVY MFEED 7 MPIS 7 MTHE 7 MTB • MT 7 M 1 7 rt r ICR 7 I FBC 7 NTC 

r 

C CALCULATION OF THE HEIGHT GIVEN THE CROSS SECTIONAL AREA 

C 

RI = SORT- ( ATI / PI ) 

0-TI - 2.0 * RI 

DO 10 J = 1 7 MTB 
IF < ATI .GT. ATBC-J) ) GO TO- 10 
A1 = SORT < ATT / ATS < J-l ) ) - 1-0 
B1 = SORT < ATB(J) / ATBCJ-l) ) - 1.0 
5 = ZB(J) - ZB(J-i) 

ZI ^ ZB < J—l ) + A1 * C / B1 
GO TO 20 

10 CONTINUE 

20 CONTINUE 
RETURN 
END- 

FUNCTION HEIGHT OVV) 

COMMON /A/ ZHE(IO) jAHE(IO) ?PV<10)*PH(10)»ZF<10) 7 FFC ( 10 ) 7DTUBE( 10) 
1DVB ( 60 ) 7 D VBEFF ( 60 >'7 FFAD < 1 0 1, ZD T S < 10) 7FD(1Q) ?AHEAV(60) ?ETUBE(60) « 
2U0 C 60) 7 UMF < 60 ) 7 H ( 60 ) 7 AT < 60 ) 7 DT ( 60 ) 7 T ( 60 ) 7 X < 60 ) 7 AKPE < 60 ) 7 YP ( 60 ) 7 
3YET60) tYCOEUO) 7EPB<60) f EPC(60> 7DVB8<60 ) tBVBBEF<60> .DBAV(60> 7 
4UBC60) 7 UTC (60) 7 UTA < 60) tZB( 10) 7 ATB< 10) 7 YVE' 60) 7 ZAVG (60) . EARR<10> 
COMMON /B/ YBO ( 60 ) 7 YEO ( 60 ) 7 DB < 60 ) 7 DPSVB 7 BPUMB > DCSVP 7 DCl-JMB 7 RHOCH . 
1HLF 7 VMF*FM0fFMF7UF7 PF t TF?RG r G 7 MGAS r DPFIX? DPFLU 7 DPBIS 7 RHOBED 7 
2EMF7 PAV 7 HCR- 7 BEDVOL 7 EFFUOL 7 SOLVOL 7 TETUBE 7 HLMF 7 PI 7 AND 7 DNZL 7 
3FW r FSW 7 DZAV 7 MFEED 7 MD IS 7 MTHEr MTB 7 MT 7 Ml 7 M? ICR 7 IFBC 7 NTC 
C 

C CALCULATION OF THE HEIGHT GIVEN THE EFFECTIVE VOLUME OF THE BED 

C (EXCLUDING' THE VOLUME OCCUPIED BY THE TUBES) 

C 

HT = 0.0 
SUM = 0.0 

DO 100 1=27 NTC 

SUM' = SUM + DVBEFF <T ) 

HT = HT + DZAV 

TF ( SUM ,LT. VV ) GO TO 100 

HT = < VV - SUM- ) * DZAV / DVBEFF ( I ) + HT 

GO TO 110 

100 CONTINUE 

110 CONTINUE 

HEIGHT = HT 

RETURN 

END 

SUBROUTINE HYDRO' 

REAL MGAS 

COMMON /A/ ZHE(IO) 7 AHE< 10) jPV< 10) »PH( 10) »ZF< 10) 7 FFC CIO) yDTUBE( 10 • 
1DVBC60) 7 DVBEFF (60) jFFAOUO) fZDTSCIO) 7 FDUO) tAHEAV( 60) rETUPE(sO) 7 
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1440. 

1441 . 

1442. 

1443. 

1444. 

1445. 

1446. 

1447. 

1448. 

1449. 

1450. 

1451. 

1452. 

1453. 
1 454 . 

1455. 

1456. 

1457. 

1458. 

1459. 
1 460. 

1461. 

1462. 

1463. 

1464. 

1465. 

1466. 

1467. 

1468. 

1469. 

1470. 

1471. 

1472. 

1473. 

1474. 
i 475. 

1476. 

1477. 

1478. 

1479. 
1130. 

1481. 

1482. 

1483. 

1484. 

1485. 

1486. 

1487. 

1488. 

1489. 

1490. 

1491. 

1492. 

1493. 

1494. 

1495. 

1496. 
1 '>97. 
1499. 
1499. 


C 

C 

C 


c 

c 

c 

c 

c 


16 


C 


of ^ PAG ® IS 

** quality 


2U0 < 60 ) , UMF ( 60 > 7 H < 60 > » A r ( 60) r D 1" ( 60 ) ? I ( 60 J - X ( 60 > ,AKPE<60> --'8(60)7 
3YE < 60 ) r YCQE < 60 > j EPS (60 > tEFC(60> , QVBB ( 60.' ? BVBBEF ( oO * , OSAO' 60 ! - 
4UB ( 60 ) j-UTC ( 60 ) , UTA (60) ?ZB( 10) , ATS (10)? YVE ( 60 ) 7 2 A 06 ( 60 ) 7 IARR (10) 
COMMON /B/ YBO (60) ?YEQ(60> t BB < 60 ) t DPSVB j DPWMB , OCSVB t OCUMB ; RHOCH - 
1HLF ? UMF j FMO r FMF j UF ,PF .TF ,RG rGj MGAS ^ DPFIX? BPFLU 7 OPDISj RHOBEB . 

2EMF . P AV j HCR , BEDUOL 7 EFFVOL . SOLVOL 7 TETUBEjHLMF 7 P1 1 AND 7 DNZL 7 
3FU j FSU r DZAV .fiFEED , MBIS r M FHE.rtTS 7 MT 7 Ml 7 M » I CR 7 IFBC 7 NTC 
COMMON /C/ BPSE < 30 ) . BPWE < 30 ) j DCSE ( 30 ) tOCUE(30) rWEA(30) ?WEC(3Q> 7 
1HB<30 ) 7 UCHOLB < 30 ) 7 UAHOLD (30 ) 7 KT 
BIMENSION BTUBEI (60) 7 PHI (60 > » PVI ( 60 ) 7 I ARRNG ( 60 ) 


CALCULATION OF BUBBLE HYBROBYNAMICS 


LAST = 0 
SUM=0.0 
SUMEFF=0.0 
BEDVOL =o.O 
SUMO - 0.0 
ICR = 0 
HCR =0.0 
TFBC = 0 
'BTUBEI Cl) = 0.0 
BBAO(l) =0.0 
H ( 1 ) - 0.0 
AT < 1 ) = ATB(l) 

BT < 1 ) = SORT ( 4.0*AT ( 1 ) /PI ) 

BVBB ( 1 )= 0.0 

BVBBEFCl) =0.0 

IARRNGU) = 0.0 

ETUBE(l) =0.0 

ETUBEC2) = 0.0 

RHGGAS = PAV*MGAS/(RG*T<2> ) 

VISC = 3, 72E-6.-ST <2)-fc*0 .676 

A1 = 33. 7*#2+0 . 0408*DPSVB5HMt3*G* ( RHOBED-RHOGAS ) YRHGGAS/U ISC**2 
UMF(2> = VISC/ ( BPSVB.tRHQGAS ) * (SORT ( Al )-33 .7) 

UMF ( 1 ) = UMF<2) 

U0<2> = FMFftMGAS/RHGGAS/ ( AT ( 1 ) K ( 1 , -ETUBE ( 2 ) ) > 

DBO = 0.347*(AT<l)*Cl.-ETUBE<2>)*(U0(2)-UMFC2))/AND)**O.4 
DBA = DBO 
H(2) = BBO 


ASSUMING THE COMPARTMENT SIZE. BUBBLE SIZE IS COMPUTED IN THAT 
COMPARTMENT. ITERATION IS CONTINUED TILL THE ASSUMED COMPARTMENT 
SIZE AND THE CALCULA TED BUBBLE SIZE IN' THAT COMPARTMENT AGREE 


BO 200 I = 2 7 100 

IF (I , EQ» 2) GO TO 16 

DBB = 5.0 

INDEX = 0 

EMAX =0.1 

DBA = H< 1-1 )-H( 1—2) 

BO 250 R = 1730 

IF (I .LE. Ml) GO TO 5 
T< I ) = T(M1 ) 

XU) = X ( Ml ) 

YB ( I ) = YB(M1 > 

YEU) = YE(Ml) 

CONTINUE 

HU) = HU-1) + DBA 
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1500. 

1501. 

1502. 

1503. 

1504. 

1505. 

1506. 
ISO?, 
isos. 
ISO?., 
isio. 

1511. 

1512. 

1513. 

1514. 

1515. 
1516 . 
1517. 
ISIS. 
151?. 

1520. 

1521. 

1522. 

1523. 

1524. 

1525. 

1526. 

1527. 

1528. 

1529. 

1530. 

1531 . 

1532. 

1533. 

1534. 

1535. 

1536. 

1537. 

1538. 

1539. ‘ 

1540. 
1541 I 
1542. 
i 543^ 

1544. 

1545. 

1546. 

1547. 
1549. 

1549. 

1550. 

1551. 

1552. 

1553. 

1554. 

1555. 

1556. 

1557. 

1558. 

1559. 


C IDENTIFICATION OF COOLING TUBES IN 1 HE COiiPARTMENT 

C 

DO 210 J = KMTHE 

IF <ZHE(J> -LE. H( 1 ) .AND. ZHEU+l) ,LT . Hd>> GO TO 210 

IF <ZHE( J) .LE. H(I-1> .AND. ZHE<J+1) .GE. H(I>> 30 TO 220 

Fl = < H ( I ) -ZHE ( J ) > /DBA 

F2 = (ZHE( I— 1 ) )/DBA 

AHEAV < I ) = F1*AHE( J)+F2*AHE< J-t ) 

BTUBEKI) = FlfcDTUBE < J ) +F2KDTUBE ( J-l ) 

60 TO 230 

220 AHEAD (1 ) - AHE( J) 

DTUBEKI) = DTUBECJ) 

230 BVICI) = PV(J) 

PHI C I ) - PH(J) 

IARRNG(I) = IARR(J) 

GO TO 240 
210 CONTINUE 

240 CALL AR£A<H< I > 7 BT( I ) > AT<I ) > 

HAD = 0.5*(H<I-1)+H<D ) 

CALL AREA < HAU 7 DTAV 7 AT AU ) 

BYBBd) ~ 0.3*<ATci>l>-fAT(I>miBA 

DUBBEFd) = DUBB<I>T('l.-0.25.4(AHEAU<I):t:DTUBEKI)) 

ETUBE(I) = 1.0 - DUBBEF < I ) /DVBB.( I ) 

IF d .EQ. 2) GO TO 260 
RHQGAS ==’ PAV*MGAS/(RG*T<I> > 
yiSC = 3.72Er-6#T ( I >*<0.676 

A1 = 33 . 7**2+Q ,0408*DPSUB**3*G* ( RHOBED-RHOGAS ) *RH0GAS/UISC**2 
UMFCI) = yiSC/ < BPSUB*RHOGAS ) *(SQRT ( A1 )— 33 . 7 ) 

UO(D = FNO.'(tMGAS/RHOGAS/< A TAU* ( 1 . -ETUBE( I ) ) ) 

IF C IFBC .GT, 0) GO TO 125 

IF C ABS C UO < I ) — UMF < I ) ) .LE. 0 .01jSUMF( I ) ) GO TO IS 
IF CUOd> ,LT . UffF CD) GO TO 10 
GO TQ 17 
IS ICR = 1 

17 BBMAX » 0,652*(ATAU*U .-ETUBE(I) >*ABS(UO ( I )-UMF(I> >>**0.4 

IF CDBMAX .GT. BTAU) BBMAX = DTAV 
BBC - DBMAX - ( ^BMAX-DBO) tEXP (-0 . 3*HAV/DTAU ) 

IF < IARRNG<I) .GT ’.2 .AND. PHI < I ) . GE.DBAV ( 1-1 ) .AND. DBC.GE. 
1BHKD) DEC = BRId) 

IF (LAST .Gt. 0) GO TO 260 
ER = BBC - DBA 

IF (N .EQ. 1 . AND, DBG .LT. DBA) DBF = -DBB/2.0 
CALL CRRECT <K 7 II^DEX r BBB 7 XI j X2 7 DBA, El 7 E2 » ER t EMAX ) 

IF (INDEX .EQ. 2) GO TO 260 
250 CONTINUE 
260 CONTINUE 

DBAU(I) = DBA 
ANBE(I) = ll.O/DBAVd) 

C 

C CALCULATIONS FOR UBR — BUBBLE RISING DEL. AT MIN . FLUDIZATION 7 

C UBS BUBBLE DEL. AT SLUGGING CONDITIONS? 

C UB — ABS. BUBBLE RISING VELOCITY 7 

C EPB BUBBLE FRATION? 

C EPC CLOUD FRACTION 

C 

UBR ~ 0.711 * SORT ( G * BBAVd) ) 

UBS = 0.355 t SORT ( G * DTAV > 

IF (UBR .GT. UBS) UBR -s UBS 
UB ( I ) UO ( I ) —UMF ( I ) +UBR 

EPB(I) =5 ( UO(I)-UMFd) ) / UB < I ) T ( 1 . 0— ETUBE (I ) ) 
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1560 • 

1561. 

1562. 

1563. 
15*4. 

1565. 

1566. 

1567. 

1568. 

1569. 

1570. 

1571. 

1572. 

1573. 

1574. 

1575. 

1576. 

1577. 

1578. 

1579. 

1580. 

1581. 

1582. 
1583'. 

1584. 

1585. 

1586. 

1587. 

1583. 

1589. 

1590. 

1591. 

1592. 

1593. 

1594. 

1595. 

1596. 

1597. 
1593. 

1599. 

1600, 
1601. 
1602. 

1603. 

1604. 

1605. 

1606. 

1607. 

1608, 

1609. 

1610. 
1611 . 
1612. 

1613. 

1614. 

1615. 

1616. 

1617. 

1618. 
1*19. 


Q^POoi 1 PAGE & 
J P °0 R qhalit? 


ALFB = EMF * UBR / UMF(I) 

SPC(I) -a EPB(I) .* ALFB / ( ALFB - 1.0 ) 

IF < EPS < I ) ,GT, 0.7) EPB(I) 0,7 

IF (EPC (I) .GT. (0.99 - ETURE(I)) ) EPCCI) = 0.99 - ETUBE(I) 

IF ( ( EPC Cl) -EPB < I ) ) ,GT. 0.01) EPC(I) = EPBCI) -f 0.01 
BEBVOL * BEBVOL -f BVBBCI) 

SUMV = SUMO + BVBBEF < I ) 

SOLVOL = DVBBEFI I ) - BVBB(I> * EPB<I) 

SUMEFF = SUMEFF + SOLVOL 

SUM = SUM + SOLVOL / ( 0.5 * < AT(I )+AT ( I-i ) ) ) 

IF (ICR .GT. 0) GO TO 35 
IF (LAST .GT. 0) GO TO 125 
IF (HLF .NE. 0,0) GO TO 20 
C 

C TEST FOR CONVERGENCY 
C 

IF ( ABS < SUMEFF-VMF ) .LT, O.Ol*VMF) GO TO 125 
IF (SUHEFF .LT. VMF) GO TO 200 

VOL = SUMV-(SUMEFF-VMF) X (1.0 - ETUBE(I)) / ( 1 . O-EPB ( I ) -ETUBE ( I ) ) 
H < I ) = HEIGHT (VOL) 

CALL AREA ( H( I ) » BT ( I ) r A T( I ) ) 

BEBVOL = BEBVOL - OVBB(I) 

SUMV = SUMV - BVBBEF (I ) 

SUMEFF = SUMEFF - SQLVQL 

SUM = SUM - SOLVOL / <0.5*< AT <I)+AT< 1-1 ) ) ) 

LAST = 1 

BBA = H(I>-H(I-1) 

GO TO 16, 

20 CONTINUE 

C 

C TEST FOR CONVERGENCY 

IF (ABS(H(I)-HLF) .LE. 1.0E-3*HLF) GO TO 125 
IF (ABS(H(I)-HLF) .LE . 0.5 * (H< I >-H< 1-1 ) ) ) GO TO 50 
IF (H ( I ) .LT. HLF) GO TO 200 
50 H( I ) = HLF 

BEBVOL = BEBVOL - DVBB(I) 

SUMV = SUMV - BVBBEF < I ) 

SUMEFF = SUMEFF - SOLVOL 

SUM = SUM - SOLVOL / (0.5*(AT(I) + AT(I-l))) 

CALL AREA < HU )•> BT( I ) , AT( I ) ) 

LAST = 1 

BBA = H<I)-H(I-1) 

GO TO 16 

10 UO(I) = UMF(I) 

ATAV = FMO « RG * T(I) / < PAV * UO (I) * ( 1 . O-ETUBE ( X ) ) ) 

CALL HAREA ( ATAV i DTAV r HAV ) 

H ( I ) = 2.0*HAV - H ( I— 1 ) 

ICR = i 
LAST - 1 

BBA =* H< I )— H< 1-1 ) 

GO TO 16 

200 CONTINUE 

IF (IFBC . EG . 0) GO TO 125 
35 CONTINUE 

HCR = H < I ) 

IF (ABSCH(I)-HLF) .LE. i.0£-3*HLF> GO TO 125 
IF ( ABS ( VMF-SUMEFF ) .LE. 0.01 * VMF ) GO TO 125 
I - I + 1 
DBAV(I) = 0.0 
UB ( I ) = 0.0 
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1420. 

1421 . 

1422. 

1423. 

1424. 

1425. 
1424. 

1427 . 

1428 , 
142? . 
x 430 , 
1631 . 
1632; 

1633. 

1634. 

1435. 

1436. 
1637. 
1438. 
163? . 
1640 . 
1641 . 
1442. 
1643. 
1644 « 
1645. 
1446. 

1647. 

1648. 

1649. 

1650. 

1451 . 

1452. 
1653. 
1454 . 
1455. 
1454. 
1457, 

1658. 

1659. 

1660. 
1661. 
16 62. 
1463. 
1664. 
1445. 
1444. 

1667. 

1668 . 

1669. 

1670. 

1671. 

1672. 

1673. 

1674. 

1675. 

1676. 

1677. 
1673, 
1679, 


ARBECI) = 1000.0 
EPBCI) = 0.0 

epccd = o.o 

IF CDMF .EG). 0.0) GO TO 45 

c 

C FIXED BED CONDI HONS 

C 

VOL = SOHO + C DMF - SUMEFF ) 

H(I) = HEIGHT C VOL> 

45 CONTINUE 

IF < VMF ,£Q» 0.01 H< I ) = HLF 
IF <1 .LE, Ml) GO TO 6 
TCI) = T (Mi ) 

X(I) = X(M1) 

YB ( I > = YB(M1) 

YECI) - YE(M1) 

6 CONTINUE 

DO 310 J = i.MTHE 

IF C2HE(J) . L£. HCI) .AND . ZHECJ+l) .LT, H< I ) ) GO TO 310 
IF CZHECJ) .LE. HCI-1) .AND. ZHECJ+l) .GE. HCI)) GO TO 320 
FI = <H(I)-ZHE( J)>/CHCI>-HCI-lJ ) 

F2 = CZHECJ ) -H Cl— I))/CHCI) -*H ( I— 1 ) ) 

AHEAVCI) =* F1-+AHEC J)+F2*AHE<J~1> 

DTUBEKI) = F1*BTUBE(J)+F2*BTUBECJ-1) 

PVKI) = F1*PVC J)+F2*PVC J-l) 

PHK I ) ~ F1*PHCJ)+F2*PH<J-1) 

GO TO 33 0 

320 AHEAD < I ) = AMEC- . 

DTUBEI ( I ) a DTUBECJ) 

pvicn - pv(j> 

PHI (I) = PHC J) 

330 IARRNGCI) ~ IARRCJ) 

GO TO 340 
310 CONTINUE 

340 CALL AREACHC I ) , DTC I > , ATCI ) ) 

DDBBCI) = 0,5*CAT<I-lJ+ATCim<N<I)-HCI-l>> 

DV8BEF < I ) =* DVBBC I )£< 1 . -0. 25* AHEAD ( I ) TDTUBEI CD) 

ETUBECI) = 1.0 - DVBBEF ( I ) /DVBB ( I ) 

RHOGAS = PAVflMGAS/ (RGMtT CID 
DISC = 3.72E-6.*T(I)*S0.676 

A 1 = 33 . 7**2+0 . 0408*DPS VB**3*G* C RHOBEU-RHOGAS ) *RHOGAS/VT SC**2 
UMF(I) = DISC/CBPSOB*RHOGAS)*CSClRT<Al)-33.7) 

HAD = 0.5*<HCI-1)+HCI)) 

CALL AREA (HAD. DTAV, ATAD ) 

UOCI) = FM0*MGAS/RHOGAS/CATAV*Ci.-ETUBECD ) ) 

BEDVOL = BEDDOL + DDBBCI) 

SUMD = SUMD + DDBBEF(I) 

SOLDOL = DVBBEF (I) - DDBBCI) * EPBCI) 

SUMEFF = SUMEFF + SOLVOL 

SUM = SUM + SOLVOL / < 0.5 * CATC I >+AT ( 1-1 ) ) ) 

IFBC = 1 
125 Ml = I 

TETUBE = 1,0 - SUMD/BEDVOL 

EFFVOL = SUMD 

SOLDOL = SUMEFF 

M = Ml - 1 

DO 460 K = 2 , NT 

I - I + 1 

HCI) = HCMD+HBCK) 


DO 410 J *■ l/MTHE 
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L6Q0 , 
1681 . 
1682, 

1683, 

1684. 

1685. 

1686, 

1687. 

1688. 

1689. 

1690, 

1691 . 

1692 . 

1693. 

1694. 

1695. 

1696. 

1697. 

1698. 

1699. 

1700. 

1701. 

1702. 

1703. 

1704. 

1705. 

1706. 

1707. 
1703. 

1709. 

1710, 
1711 . 

1712. 

1713. 

1714. 

1715. 

1716. 

1717. 

1718. 

1719. 

1720. 

1721. 

1722. 

1723. 
1724 . 

1725. 

1726. 

1727. 

1728. 

1729. 

1730. 

1731. 

1732. 

1733. 

1734. 

1735. 

1736. 

1737. 

1738. 

1739. 


OF PAGB W 

0F Poc ® quality 


IF <ZHE<J).L£.H<I>.AND.ZHE<J+1>.LT.H<I)> GO TO 410 
IF C ZHE< J ) , LE .H < [-1 ) . AND • 2HE ( J+l ) . GE . H < I ) ) GO TO 420 
FI = <H<I>-ZHE< J) )/<H<I)-H<I-l>) 

F2 = (ZHE( )/(HvIJ-H( I-i>) 

AHEAVCI) = F1*AHE(J)+F2*AHE< J-L1 
DTUBEI ( I ) *» F1*DTUBE< J > +F2*BTUBE< J~l) 

F'UI(I) = Fl*PV<J>+F2*PV<J-i) 

PHI CD = F1*PN< J)+F2*PH<J-1> 

SO TO 430 

420 AHEAV(I) = AHE(J) 

DTUBEI ( I ) » DTUBE(J) 

PUIM) = PV(J) 

PHI < I > = PH< J) 

430 IARRNQC I J = IARRCJ> 

80 TO 440 

410 CONTINUE 

440 CALL AREA ( H (I J / DT( I ) , AT( I ) ) 

BUBB(I) = 0.5*<AT(I-l>+AT<I))1t<H(I)-H<I-l)> 

DVBBEF(I) - DUBBCI) * ( 1 ,-0 . 25*AHEAV < I ) YDTUBEI ( I ; ) 
ETUBE< I ) = 1. - BUBBEF(I)/DVBBCI) 

460 CONTINUE 
HT = I 

HFB = H < MT ) -H(M1 ) 

RETURN 

END 

SUBROUTINE SIMCKArB,N jNN jKS) 

DIMENSION A(NN),B<N> 

C 

C FORWARD SOLUTION 
C 

TOL=0 .0 

KS=0 

JJ=-N 

DO 65 J=1,N 

JY=J+1 

JJ=>JJ+N+1 

BIGA=0. 

IT=JJ-J 


C SEARCH FOR MAXIMUM COEFFICIENT IN COLUMN 

C 

IJ=IT+I 

IF ( ABS< BI6A ) - ABS(A(I J) )) 20 >30 >30 
20 BIGA=A ( I J ) 

IMAX=I 
30 CONTINUE 
C 

C TEST FOR PIVOT LESS THAN TOLERANCE ( SINGULAR MATRIX ) 
C 

IF < ABSCBIGAJ - TOL) 35/35,40 
35 KS=1 

WRITE(6,100J NS 

100 FORMAT (/' NO SOLUTION' / ' KS=',I2> 

STOP 

C 

C INTERCHANGE ROWS IF NECESSARY 
C 

40 I1=J+N*< J-2) 

IT=IMAX-J 
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1740. 

1741. 

1742. 

1743. 

1744. 

1745. 

1746. 

1747. 

1749. 
174?. 

1750. 

1751. 
1.752 . 

1753. 

1754. 
1,755. 
1256. 

1757. 

1758. 

1759. 

1760. 
1761 . 

1762. 

1763. 

1764. 

1765. 

1766. 

1767. 

1768. 

1769. 

1770. 
1771 . 

1772. 

1773. 
1774 , 
1775. 
1-776 , 

1777. 

1778. 

1779. 
1730, 
1781 . 

1782. 

1783. 

1784. 

1785. 

1786. 

1787. 

1738. 

1739, 

1790. 

1791. 

1792. 

1793. 

1794. 

1795. 

1796. 

1797. 

1798. 

1799. 


DO 50 K=J,N 

11*1 1-+N 

I2*Il+ir 

8^0E=A<I1) 

A<l'l>=ACI2) 

A(I2>=SAVE 

C 

C OIVIDE EQUATION BY LEADING COEFFICIENT 

C 

50 ACIl) IGA 
SAVE=BCIMAX) 

BC I MAX) =B< J)' 

BCJ)=SAVE/BIGA 

C 

C ELIMINATE NEXT OAR I ABLE 

C 

IF< J - N) 55,70,55 
55 JQS=N*< J^-l) 

DO 65 IX=JY,N 

IXJ=IQS+IX 
IT=J— IX 

DO 60 JX=MY,N 

IXJX=N*< JX-n+IX 
JJX=IXJX+IT 

60 AC IXJX)=A<IXJX)-<A< IXJ)*A( JJX) > 

65 8(IX)=BCIX)*B< J)*A(IXJ) 

C 

C BACK SOLUTION 
C 

70 NY=N-i 
IT=N*N 

DO 80 J=1,NY 

IA=IT-J 

j'B=N-J 

IC=N 

DO 80 K=lrJ 

BCIB)=B< IB)-ACIA>*B(JC? 

IA=IA-N 
80 IC-IC-1 
RETURN 
END 

SUBRO UT I NE UEL < 0 1 SC , RH OGA S » G , RHOS , DPAR , UM , UT ) 

C 

C THIS SUBROUTINE CALCULATES THE MINIMUM FLUIDIZATION VELOCITY AND 

C THE TERMINAL VELOCITY OF THE PARTICLE 

C 

A1 = 33,7*#2+O.Q4O8*0PAR*_*3*G.*<RHGS-RHOGAS)*RHOGAS/VlSC**2 
UM = OISC/ciipAR*RHOGA$-)*<SaRT<Al)-33.?> 

UT = < 4 . 0* < RHOS-RHQGAS ) **2*G**2/225 . 0/RHOG AS/VI SC ) ** < 1 , /3 . 1 *OPAR 
REP = DPAR*RHOqAS*Uf/0lSC 

IF (REP .GT f 0,4 .AND. REP .LE. 500.0) GO TO 210 
UT => G*(RHOS-RH08AS)*DPAR**2/18./OISC 
REP = DPAR.*RHOGA^*UT/VISC 
IFCREP.LE.0.4) GO TO 210 

UT = SORT (3 , 1*G* (RHOS-RHOGAS ) *DPAR/RHOGAS 5 
210 RETURN 
END 

FUNCTION VOLUME <ZZ) 

COMMON /A/ ZHE<1<?> » AHEdO) , PV ( 10 ) , PH ( 10 ) , ZF ( 10 ) .FFCUO’ r 0 TUBE C 10) , 
1DVB(6Q),DVBEFF<60) , FFAD ( 10 ) ,ZBIS<10> , FD C 10 ) , AHEAV< 60 ) , ETUDE <60 > • 
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pj • 


L30Q . 


2U0 ( 60 ) f UMF ( 60 > f H < 60 ) f AT < 60 ) * DT ( 60 > > f < 60 d X < 60 > ■> AKHEt60 ) • ?B(oO) t 


1801 » 
1802. 

1803 . 

1804. 

1805. 

1806. 

1807. 

1808. 


3YE ( 60 ) f YC0E(60) ,EPB<60> fEPC(60> fBVBB<60> fBUBBEF ( 60 ) f BBAU ‘ 60 S r 
4UB ( 60 ) t UTC ( 60 ) #UTA<60) fZB(10> , ATB t 10 ) f YVE< 60) fZAVG<60) fIARRUO) 
COMMON /B/ YBO < 60 ) f YEO ( 60 ) f DB ( 60 ) fBPSVB fDPWMB r BCSVB f DCWMB f PHOCH f 
1HLF f VMF t FMO » FMF r UF » PF jTF fRG f G fMGAS f BPFIX f BPFLU f BPDIS f RHQBEB < 

2EMF f PAV f HCR r BEBVOL f EFFVOL f SOLUQL , TETUBEf HLMF .PI, AND t DNZL f 
3FU f FSW f DZAV . MFEED , MDIS f M THE f MTB f MT f Mi rM f ICR • 1FBC , NT C 
C 

C CALCULATON OF THE EFFECTIVE VOLUME OF THE BED GIVEN THE HEIGHT 


1809. 

1810. 

1311. 

1312. 
1813. 
1314. 

1815. 

1816. 
1817'. 
1818. 
1319. 
1920. 
1821 . 
1822. 


C 

N = IFIX (ZZ/DZAVJ+1 
IF (N.EQ.l ) N = 2 
SUM - 0.0 

ZN = FLOAT < N— 1 ) *BZAV 

BO 100 I = 2 . N 

SUM = SUM + DVBEFF ( I ) 

IF ( I .LT. N ) GO TO 100 
A1 = ( ZZ - ZN ) / DZAV 
SUM =» SUM + BVBEFF(I) * A1 
100 CONTINUE 

VOLUME = SUM 
RETURN 
END 
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INPUT TO COMBUSTION PROGRAM 


12345o789012345678901 23456789012345678901234567S901234567S90 1234 5 678 9012345a 7890 


KT 

4 


HS-.1 ) 

BPSE(1> 

DPWE ( 1 ) 

UEAU) 

HB<2) 

DPSE<2> 

DF'WE< 2 ) 

WEA C 2 ) 

0.0 

0.0509 

0.06139 

193.3 

56.43 

0.0295 

0.03409 

9.527 

HB(3> 

DPSEC3) 

DPWEC3) 

WEA( 3) 

HB(4) 

DPSEt 4 ) 

DF'WE < 4 ) 

WEA < 4 ) 

112.9 

0.02067 

0.02651 

1 .446 ’ 

138.1 

0.01679 

0.02336 

0.7261 

ccsEci) 

DCWE(i) 

WEC ( 1 ) 

BCSE<2) 

DCUE< 2) 

WECC2) 

DCSE(3) 

DCWE< 3 ) 

0.0464 

0.07726 

0.587 

0.04491 

0.05237 

0,1337 

0.04069 

0.04673 

WEC(3) 

DCSE(41 

DCUIEC4) 

UECC4) 





0.05128 

0.04769 

O.OS 

0.02685 





UDIS 

WELUA 

CELU 

EFF 

DPSUB 

DPWMB 

DCSVB 

DCWMB 

0.852 

0.726 

0.02685 

0..9927 

0,0746 

0.1001 

0.0787 

0.1049 

DASVF 

DA WMF 

BCSOF 

BCWMF 





0.0758 

0.1287 

0.0677 

0.100,4 





A1 A2 A3 

A 4 







NASA LEWIS 








MTB 

4 








ZBC1) 

ATBC1) 

ZB< 2) 

ATB<2) 

ZB<3> 

ATB<3) 

ZB < 4 ) 

ATB ( 4 ) 

0.0 

405.0 

62.7 

405.0 

81 ,3 

670,0 

280.0 

2193.0 

MTHE 








ZHEC2) 

AHE(l) 

DTUBE(l) 

P9<1) 

PH<1) 

IARR < 1 ) 



24.0 

0.0 

0.0 

0.0 

0.0 

0 



ZHEC3) 

AHEC21 

DTUBEC2) 

PV<2) 

PH ( 2 ) 

IARR(2> 



40.0 

0.1744 

1.27 

8.0 

2.86 

3 



ZHEC4) 

AHE(3 ) 

DTUBE(3) 

PV<3 ) 

PH (3) 

IARR (3) 



48.0 

0.0 

0.0 

0.0 

0.0 

0 



ZHE<5> 

ANE(4) 

DTUBE<4> 

PO < 4 ) 

PH < 4 ) 

IARR (4) 



56.0 

0 . 1744 

1.27 

8.0 

2,86 

3 



ZHE ( 6 ) 

AH£C5> 

DTUBE<5) 

PV<5) 

PH<5) 

IARR ( 5 ) 



280.0 

0.0 

0.0 

0,0 

0.0 

0 



MFEEB 

H 








1 

ZF Cl) 

FFCC 1 ) 

FFADC1 ) 






6.91 

1.0 

1,0 






(IBIS 

1 








1 

ZDIS(l) 

FB ( i ) 







142.0 

1.0 







AND 

DNZL 

FW 

FSW 





84.0 

0.198 

0.075 

0.1 





NAMEL1 NAMEL2 







LIHEST 13 








XCAO 

XMGO 

XSI02 

XC02 





0.557 

0.003 

0.006 

0.434 





NAMEC1 NAMEC2 







PTGHCQAL 








XC 

XH 

XN 

XS 

XO 

XW 

XA 

ON 

0.754 

0.051 

0.015 

0.02 

0.076 

0 . 022 

0.084 

0.412 

HCO'AL 

XACAO 







7300.0 

0.08 







HLMF 

HLF 

PAY 

TAV 

TSTA 

TWIN 

TUdUT 

TWALLA 

0.0 

141.9 

5,15 

1151 .0 

1250 . 0 

298.0 

310.0 

298.0 

UHEAV1 

UHEAV2 

UWALL1 

UWALL2 

TF 

TSF 

PF 


0,00765 

0,0025 

0.0021 

0.00025 

298.0 

293.0 

5.4 


WCOAL 

UAB 

• CAS 

UO 

FMF 

EXAIR 



4.51 

0.0 

1.67 

0.0 

0,0 

0.639 



IGNITE» iso: 

2» INOX i ITEMP» IPRES 
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1234567890 123 456 7890 1234 567890 123456 7890 123456 7990 123 4 56 7890 12345678901234567890 



NASA t EW1S 


iit.apcvi- ) tsTN lu it on ,r k 
o. a 

I. 2*7000 
□ i . moo 
700.0000 


rf-IISS SECTIOMAt. APCA O* 1 OFO, SQ.CM. 

AOS .000 
405.000 
670.090 
2 lOO .000 


tn.ioiir.rM sp.hfAt tnans.apfa .su.cm/tu.cm 
?A.OO 0.0 

40.1)0 0.1744 

40.00 0.0 

50.00 0)1744 

700. 00 0.0 

sol. I os FtED-tet/et 

c.ot 

sol. los oisciiamge LevrL 

I 42.00 

NO. OF OtSmlhufflN HOI.FS a 

NOZZt.l- O t A06 1 Fr< a 

FM a 

FSW a 

tUTSTII XC.AO « O .557 


OtA.t'l TUl’C S i CM 

0.0 

I .270 

o;o 

I .270 
0.0 

FH ACT t Oil CnAU FED 
t ,oooi> 

IiiActigm dIschArged 

I .oooo 


VFR.PI1CH.CM 

0. 0 
• 0)000 
0.0 
0 ) Ooo 
0. 0 


MUR. PITCH, CM 

0.0 

2. 060 

0.0 

2.060 

0.0 


TUUF.S ARRNGT 

0 

3 

0 

3 

0 


FRACTION LIMESTONE FEO 

1.0000 


CM 


04.0 
0. i960 
0.075 

o. ioo 

XMGO a 0.003 


xsit )2 


o.ooo 


XC 02 


stlfrAcF VOl mean 111 A. OF AnDITIvEs FEED o oASVF 


0 .0750 


CM 


HEIGHT MEAtg 0 1 A . n DAMMF » 


PTiiHCDAL 


XCF a 0.575 

vm = o.Ata 


xrv = 0.170 xh = o.osl xn = o.oib 

V = 0.305 MCC1AL = 73O0.OO cALs/GM 


XS = 0.020 XO = 0.075 

X AC AO = O.OBO 


XW a 0.022 


0.1207 CM 


XM s 0.004 


Surface vnc mean oiA of ccAl fee o = ocsvf 


0.0677 


CM 


HT.MEAH OIA. * DCWHF » 


0. 1004 


CM 


J 

4 

cr.prr- 

III Ml - 

T I 0 

tf • 
70. 
O.'lt 
Ml I N 

K t Nil 


rREEGOARO t-i. 

0.0 

3.643E Ol 
1.1 29E 02 
l.lfllr 02 


opsC 

5. 0906-02 
2. 950 E- 02 
2.007E-02 
1.6796-02 


0.0 .. »HLF= I4I.09999 

.00000 ttwALLA* 298.00000 
roo.oonoo ,t*jf= 29o.ooooo 
595724 ,F ‘4TH= I * 5620272 
710257 ,0IIOPFO= 2.6564 837 
4? 3. 09709 


OPWF 

6. 1396-02 
3.40SE-O2 
2.55 16-02 
2.3876-02 


meA 

1.9336 02 

9.627E 00 
1.A46E 00 
7.26IE-01 


01 SE 

4.6A0E-02 
4 . 4 9 IE-02 
4)0 69E— 02 
4.769E-02 


Or ME 

7 * 7266-0 7 
5.237E-02 
4.673E-02 
5)0006-02 


M6C 

S.U70E-OI 
t .3076-0 I 
5.I20E-O2 
2. 6856-02 


.PAV= 5.1499996 ,TAVi- Ilsl.OOOO .TSTAa 1750.0000 .THIN* 298.00000 ■ TVPUT a 

,IIHnAV|= 0 , 76499991 E-02 , llHfeAVS* 0.24999999E-02.UMALI |» <1.209999996-02 . UWALL2* 0.2449990 I E- 03 . 
,WCCAI = 4.3099993 . «WAO = 0. 4051516 ,CA$= 1.6699991 .EXAIRa 0.63900000 . KGAS* 

• fH r* ? .5601640 |FMtl= 2.1.796170 ,H 2 SV= 0.54 2603 I 2E~0l . ANH3V= 0.9303134 7E -01 , fiMOCH = 

,KVr,AS= 0.6206I697E-02 .PCtlAFa 0.67313063 ,OVB»5= 409974.13 .OVCG= 356196.70 


IFS'IITS .ACL TE PPERATIIPF 0 Ih CFKTirpAOE 

1 TC .XAV.TAV.lTPI AC , a O.9920E 00 0 . 23 2 6 -fl2 0.0705E 03 


1 

p 

in 

4.1 2')3f. 

Q* 

VII 

1 . 9433E-0I 

• VE 

1 .500PE-OI 

0.0 

we 

rctm 

4. 4 J29E-04 

YCOZE 

4.f IH3F-02 

YCU2B 

3. I.070F-03 

X 

3. 65636- 03 

ZAVG 
2 « 06026 

T 

9.001) 7F 
1 .7 077 c 

JO 

1 . O J36E-0I 

0.0 

0.0 


7 .466SE-03 

1 ,30400-01 

1 .37076-02 

3.70076-03 

7)00O5E 

\ 

o> 

1 . 72376-0 1 

2 .0OO3C— 02 

0.0 


2*7 33 6E— 04 

j .71756-01 

2. I555E-02 

3 • 308 36-03 

1 .34536 

*3 

2.571 75 

0| 

1 •< 303E-OI 

4 .7000F-02 

0.0 


1 .31 ISE-04 

1 .1 3346-01 

7. 032 lC-02 

2. 05636-03 

2,13726 

ft 

3 .6 06SE 

J t 

I.E493C-0I 

4 .flOOOE— 02 

0.0 


l .2708E-04 

1 ,1 076E-01 

3.4297E-02 

2 .45326—03 

3.0891E 

7 

1 . 0 1 1 2E 

01 

1. 47I6E-0I 

4 .800GE-02 

0.0 


I .071 0E-O4 

1 . 1 12PF-0I 

4.00676-02 

2. 10706-03 

4.20686 


6. I027F 

01 

1 .40006-01 

4.PO0OF-OZ 

0.0 


9.33656-05 

1 .11516-01 

4 • 53656—02 

1 .61 606-03 

5.4969E 

<t 

7. 701 or 

0! 

1 . 12 176-0 1 

4.4000C-07 

0 . 0 


7.OIO0E-OS 

1 . 1 71 2E -01 

5. 1303E-02 

1 .57BIE-03 

6 .98306 

I 0 

9 . 7 0 1 7 c 

01 

1 • 23 72E--01 

3.40006-07 

0.0 


4. *53806-06 

1 *8 7306-01 

5.01 246-02 

1 .42966-03 

3.74436 

1 » 

I . 1 ?o ir 

02 

1 . I 4986 - 0 1 

2 • 60007- 02 

o.o 


J. JS44E-05 

1 .347 06 -01 

6. 5I94F-02 

1 .3 1 4 1 E-03 

1 .08046 

t 2 

i .4 |oor 

0? 

1 . OAf.or-OI 

? . 0 000 E- 67 

0.0 


2 . 7 'JOBE-05 

1 .4040E-DI 

7.20536-02 

1 .25736-03 

t .3047E 

f 

to 


V0 

VO 


y( n 

YCG2 

T 

TPM 

TPE 

ZAVG 


01 

01 


01 


04 

04 


OUTPUT OF COMBUSTION PROGRAM 




4. I20C 

•>0 

1 .6 77E-01 

0.0 

- t 3F-C1S 

9.901 E-Ol 

9.o r .?t 

0? 

1 • 3946 

03 

1 . 34.TE 

03 

2.060E 

00 

1 

o . on i r 

09 

1 .6 406-01 

Oi 9 

1 . 1 5f.r - 03 

1. JOPE-Oi.’ 

9. 031 £ 

0^ 

1 .3 71 r 

03 

£.*0736 

02 

710016 

00 

1 

1 . 7U3E 

01 

1 .492E-0I 

0.0 

i . j i*of - os 

3. fl 1 E.-02 

( . 98 7E 

or 

I . i«4r 

03 

9.7406 

02 

t .J4E6 

01 

e 

p. *.7rr 

01 

t .4366-01 

0.0 

> . 1 OPt -05 

4 .1956-0? 

b.OI 7 f 

0? 

1.31 (11. 

03 

i . 01 oe 

OT 

2.13 76 

01 

0 

},'■■) 6F 

01 

1 .3706-01 

0.0 

2 .0 306 -05 

*.6!>6E-02 

(1. 70 7E 

OJ* 

1 .2531 

03 

1 .0196 

03 

3.009E 

01 

r 

i.ciir 

ot 

1 . 1 1JF-01 

o • n 

1.761 E-Ob 

5. HOf-02 

11.7 431 

0? 

t .2746 

03 

1 .0066 

03 

4.2096 

01 


6 . 1 inr 

01 

1 . PS2E-0! 

0.0 

1 . 4901 -Ob 

5. 5906-02 

(1. 1974 t 

ok 

1 

03 

9.0526 

02 

S.497E 

01 

'i 

7. 7.‘1*>E 

01 

i . inoE-oi 

0.0 

1 .1266-05 

6 . 194 6-02 

0.644F 

02 

1 .2326 

03 

9.S7IE 

02 

6. 9046 

01 

t 0 

'>. 70 46 

01 

I .C93F-01 

0.0 

7 . 2'lPf-OF 

6.9256-0? 

B.ftIM 

02 

i .?07r 

03 

9.09BE 

02 

8.7446 

01 

1 1 

l .1906 

02 

1 .0076-01 

0.0 

b. 3946-00 

7 .6306- 08 

n. 4021 

OZ 

1 .179L 

03 

0-0 13E 

02 

1 .0006 

02 

1 2 

1.4105 

02 

n.7476-02 

0.(1 

4 .3276-36 

U.305E-U2 

U.459E 

or 

1 .1526 

03 

0. 7506 

02 

1 .3056 

02 

1 1 

1.9036 

02 

0. 86 IE- 02 

0.0 

1 .(‘40C-06 

8.71 IE-02 

B.495E 

0? 

1 .130fc 

03 

l .1306 

03 

1 . 70 IE 

02 

14 

2. 5406 

02 

0.775E-02 

0.0 

0.0 

0. 7976-0? 

7.93IF 

02 

1 .OOIF 

03 

( .OOIF. 

03 

2.P666 

02 


2 . fiOKF 

0? 

n . 7<T 6-02 

rt.o 

0.0 

o.noeE -02 

7.5746 

02 

1 .027r 

03 

1 .027F 

03 

?.f>746 

02 


(rr''.,F S.CA5.CAS61-* 

0.<»a(i<1C no O .33? OF OO 0.1670F 01 0.10661: 01 


ht . 


7502 0 

VbO?t 

ZAVG 

4 SO? 6.FL0 

ru. r 

4. 1 20 3F 

00 

3 .52206-06 

3.34276-04 

2.06026 

00 

S. 22376.-05 8.204fcF-06 

l .922*6-04 

9.0MO7F 

00 

2.897 4E-05 

2.Kbl4r-03 

7.00056 

00 

4.2799F— d* 1.12326-05 

1 .4O90E-Q3 

1 .70?6F 

ol 

1 .43726-04 

1.1K.60L-03 

l .34536 

01 

4.21 356—04 1.1 890E— 05 

4 .74556-05 

2.r.7i rr 

01 

2 .29 I9E— 04 

1.44(14 1-03 

2.1 372E 

01 

4.2460E-O4 1*1 (170E-05 

7.9037E-0G 

J.' or.sr 

01 

2*8 7366—04 

1 . 1906F-03 

3.069 IE 

01 

4.32196-04 1.062»E-0S 

a.0l46E-0b 

4 . n 1 1 2E 

ol 

T.304 15-04 

1 .00906-03 

4.20006 

0,1. 

4.3939E-04 0. 90316-06 

9.3O9OE-05 

6.10? 7E 

ol 

3. 6 20 OE— 04 

8.00I4F-04 

5. 1969C 

0 J 

4.4515E-04 9.2I95E-06 

0.71O7E-OS 

7.70496 

ot 

3.04646-04 

7.64886-04 

6.98306 

01 

4.4570E-04 1.0999E-0S 

1.15496-04 

9.70T7C 

ot 

3. 1S42E-04 

5. 1272E-04 

0.74436 

ol 

4.30JJF-04 1.4029F-0S 

I.40ME-04 

1 . lM03r 

02 

T.9593E-04 

4.5028E-O4 

1 • 0B04E 

02 
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APPENDIX VII 

. MANUAL FOR THE COMPUTER PROGRAMS 

In this appendix, explanation for the main programs for elutriation 
and combustion calculations are given followed by the alphabetical list 
of subprograms used in both the programs. Except for the subroutine SIMQ 
which is the duplication of one of the subroutines in SSP supplied by 
IBM, explanation is given for each subprogram. 

1 . Elutriation Main Program 

In the first part of the program, FBC design data and operating 
conditions are specified as input. From CN 89 (Card Number 89), the 
composition and the amount of volatiles and char produced are calculated.. 
At CN 178, ELUT subprogram is called in to perform the elutriation 
calculations. Calculated results of particle size distributions of 
limestone and char in the bed and in the entrained solids, solids 
withdrawal rate, char elutriation rate and combustion efficiency are 
printed out. 

2 . Combustion Main Program 

Computed results from the elutriation program are used as input 
in combustion calculations. From CN 64 to CN 84, all the Input variables 
are specified. Then, the devolatilization of coal is considered. 

Knowing the average temperature of FBC, the yield of volatiles and char 
and their respective compositions are calculated. The input variables 
and calculated results so far are printed out. 

The combustion of coal is specified by the indicator IGNITE. If 
IGNITE equals to zero, there is no combustion, and bubble hydrodynamics 
alone is calculated. Otherwise, the combustion calculations are 
started from CN 248. First the boundary conditions are specified. 



<*$SS;$2& 

Hydrodynamic calculations are then performed using the assumed 
temperature profile. The log mean temperature of the cooling medium 
is calculated knowing the inlet and outlet temperatures. Then, the 
axial distribution of solids feed is calculated in CN 281/302. Based 
on the solids mixing parameter f , the amount of volatiles released 
near the coal feed point and throughout the bed are calculated in 
CN 310/311. The flow rate of gas through the bubble and emulsion phases 
are computed. 

Before proceeding with the combustion calculations, the combustion 
efficiency is assumed. From the combustion efficiency, the average 
carbon weight fraction is calculated in CN 350 using the overall carbon 
material balance. The gas phase material balance is performed and the axial 
distribution of concentrations of various gaseous species are calculated. 
Then, based on oxygen material balance, combustion efficiency is 
calculated. 

CL in - CL in the exit gas 

Combustion efficiency = — —— — (A.VII.l) 

Stoichiometric ’0^ required 

The criterion for the convergency of the gas phase balance is that the 
assumed combustion' efficiency based on carbon, balance should agree 
with the calculated combustion* efficiency based on oxygen balance. 

Then, the axial distribution of the solids withdrawal rate, the solids 
mixing rate and the net flow rate of solids are computed in CN 429/460. 
Carbon material balance calculations for each compartment are then 
performed, and the equations are solved by the subroutine SIMQ in CN 
486 . The solution of the equations gives the carbon concentration in . 
each compartment. Knowing the solids withdrawal rate, the carbon 
concentration in the bed and the char elutriation rate the overall 
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combustion efficiency is calculated in CN 502'. Using the computed 
carbon concentration profile, the gas phase material balance is performed 
again from CN 510/555 to accurately estimate the concentrations of the 
gaseous species along the. combustor. Then, the equations obtained for 
energy balance are solved using SIMQ subroutine. The temperature 
calculations converge when the assumed (T\ QLD ) and calculated CI\) 
temperatures- agree with each other within the specified tolerance limit. 
The results are printed out in CN 674/677. 

i 

S0 2 retention calculations axe done in CN 696/775 if the indicator 
IS02 is greater than zero. Total feed rate of sulfur is estimated in 
CN 698. S0 2 generated from the burning volatiles and char is estimated 

in CN 718/721. S0 2 retention calculations are iterative. First, S0 2 

retention efficiency is assumed, and hence the reactivity of the lime- 
stone particle is calculated. SO^ material balance is performed and 

from the exit S0 2 concentration, S0 2 capture efficiency is calculated 

. ~r.. . , Sulfur in flue gas fA , ;rT 

as S0 2 capture efficiency = 1 - Total sulf u r fed - ( A - Vn - 2 ) 

If the assumed and calculated efficiencies agree, iteration is stopped, 

and the results are printed out. 

If the INOX indicator is greater than zero NO material balance 

X 

calculations are performed. NO release due to volatiles and char 

A 

combustion is calculated in CN 783/786. NO balances in the bed and 
in the freeboard are done in CN. 795/824 and the calculated results 
are printed out. 

If IPRES is greater than zero, pressure drop calculations are 
performed from CN 854/876. Pressure drop across the distributor, 
across the fluidized bed and if there is a fixed bed section above 
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the fluidized bed, then, pressure drop across the fixed bed section are 
calculated using the equations provided by Kunii and Levenspiel (1969) . 
The final results are printed out in CN 881/891. 

3. Subprogram AKAD 

This function subprogram calculates the overall rate constant for 
limestone-SC^ reaction. This subprogram is designed based on the data 
of Borgwardt (1970) for Type 4 limestone. The overall reaction rate 
constant for limestone-S02 reaction is calculated by the equation 
“ NrH S g 1/Sec CA.VII.3) 

where k vJt is defined as: 


k ^ = 490 exp(-17500/RT) gm/cjn .sec 


(A. VII. 4) 


Sg is the specific surface area of limestone, and is equal to 


4 

S = 35.9 T -3.67 x 10 ~ , T < 1253 °K 
g gm 


(A. VII. 5) 


= -38.43 T + 5.64 x 10 4 — , T > 1253 °K (A. VII. 6) 

gm 

and is the reactivity of limestone as a function of CaO utilization, 
particle temperature and size. The reactivity of limestone is calculated 
using the grain model developed by Ishida and Wen (1971) . The results 
are stored in the subprogram. The effect of temperature on the limestone 
reactivity is minimal for the range of temperatures encountered in the 
FBC. The reactivity of limestone for any intermediate particle size 
and conversion is calculated by linear interpolation on semi logarithmic 
scale as follows: 


A £a ~ ) 


f -f 
SL 1 

f -f 
2 1 


l &al 


£al 


X 


(A. VII. 7) 
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(A .VI I .8) 


(A. VI I. 9) 


where X ^ is the reactivity of limestone, f^is the fractional conversion 
of limestone and is the limestone particle diameter. Subscripts a 
and b refer to the successive particle sizes for which the reactivity 
profiles are specified (for the same conversion) . Subscripts 1 and 2 
refer to the successive particle conversions for which the reactivity 
profiles are specified (for the same particle size).. 

4. Subprogram AKK 

Overall rate constants for char combustion and C-C0 2 reaction are 
calculated in this subroutine subprogram. Char particle temperature is 
calculated using the equation (V.38) by a trial and error procedure 
using Regula-Falsi method. The values of parameters used in this 
subprogram are given below: 

Emissivity of the char particle, e m = 1.0 
Thermal conductivity of the surrounding gas, A 

• (-12/T ) 

= 6.32 x 10“ 6 T °* 5 /{l + — ~ , — } } — (A. VII .10) 

m T ’sec.cm. C 

m 


Stefan-Boltzman constant, a 


1.36 x 10' 


sec. cm^ 


. rj* ^ 

Diffusivity of 0 2 -N 2 =4.26 (y™) ’ /P 

T 

Diffusivity of C0 2 ~N 2 = 3.26 Cyg^g) 1 * ?5 /P 


(A. VI I. 11) 


(A. VII. 12) 
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5 . Subprogram AREA 

By using this subroutine subprogram, cross sectional area of 

the combustor at any height above the distributor can be calculated. 

A set of data Z. and A . , j = 1-MTB is fed into subroutine DESIGN 
J J 

and stored in the common address before subroutine AREA* is called. 

The given height Z is searched between Z. . and Z. so that 

1-1 1 

Z. , Z < Z. 

1-1 1 


Then, cross sectional area A^ corresponding to height Z is obtained 
as follows: 


A t = 


TIT 


z - z 


where r = [1 + ( Z- _ z ^' 1 ) — ) 


A 




1/2 


j-l 


t, j-l 


- l}]t. 

1-1 


(A. VII .13) 
(A. VII. 14) 


r . 
1 


-1 




1/2 


(A. VII .15) 


r = radius of the combustor at height Z above the 
distributor, cm 
6. Subprogram ATTR 

This subroutine subprogram calculates the burning time of a char 
particle of given size, and hence the size reduction constant due to 
combustion. Char particle temperature is first calculated using the 
Equation (V.38) by a trial and error procedure using Regula-Falsi 
method. The burning time, t^, of a char particle is calculated using 
the Equation (V.51) . The values of parameters used in this subprogram 
are : 


Emissivity of the char particle, e =* 1.0 

Stefan- Bo Itzman constant, a = 1.36 x 10 - * 2 , cals/sec .cm^ . °K^ 
Thermal conductivity of the surrounding gas, and the diffusivity 
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of are ca l cu l al:ec ^ by Equations (A. VII. 10) and (A. VII. 11) 

respectively. Char size reduction rate constant is equal to (1/t^) . 

7 . Subprogram CRRECT 

This subroutine subprogram provides the initial value for the 
unknown variable to be used in the next iteration of Regula Falsi 
method, and also judges if the iteration has converged. The Regula 
Falsi iteration has two periods. 

Period 1: the root is not found in the interval (INDX = 0} 

Period 2: the root is found in the interval (INDX = 1) 
as shown in Fig. 26. 

The parameter INDX is an indicator for the two periods, and if INDX = 2 
it means the iteration has converged. During the period 1, the search 
for the root is continued by proceeding in one direction indicated by 
the sign of increment for the variable. Once the root is found in the 
interval, Newton-Raphson method is applied to arrive at the exact value 

To use this subroutine, the following statements must be prepared 
in the program from where CRRECT is called. 

1) Initial assumption for the unknown variable, X 

2) Value of increment, DX 

3) Tolerance limit for error, EMAX 

4) Difference between the assumed and calculated values 
for the variable, E 

5) Initial value for INDX, INDX = 0 

6) DO loop for iteration 

7) A statement to get off the DO loop when INDX = 2 



i>U2,E2) 




Fig. 26 Illustration lor Regula Falsi Method 
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The initial' value of X' and the sign of DX axe very important factors to 

I 

get a successful result from the iteration. ‘ If there are multiple roots, 
special consideration for choosing these values is needed. In the 
ordinary case it is recommended to start from either the maximum or 
minimum possible value of the unknown variable, X. 

8. Subprogram DESIGN 

Values of the design variables are fed into the main program by 
calling this Subroutine. The axial variation of the bed cross section 
as a function of height above the distributor (A t V s Z) , the locations 
of heat transfer tubes, the specifications of the tubes (specific heat 
transfer, area based on outside diameter of the tube, tube diameter (o.d.), 
vertical pitch, horizontal pitch* tubes arrangement) , solids feed 
locations and the fraction of total feed through each nozzle, solids 
discharge locations and the fraction of materials discharged through 
each nozzle, number of orifices in the distributor, orifice diameter, 
the solids mixing parameter, f ^ and the fraction of wake solids thrown ' 
into the freeboard, f g ^ are the input variables in this subprogram.' 

Specific heat transfer area of the coils in a section of the bed 
refers to the outside surface area of the coils available for heat 
transfer per unit volume of the bed in that section. If the specific 
heat transfer area is not given, but the tube diameter is given, the 
former can be calculated. 

For the triangular arrangement of the tubes (Fig. 27) , 

Heat transfer area 

^E ~ Volume of bed 

(j> ™V AZ 

(j) (p h i’ v m Vv 


(A. VII. 16) 



—$*=“] d() 
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(a) TRIANGULAR ARRANGEMENT 



(b) RECTANGULAR ARRANGEMENT 


Fig. 27 Arrangement of Cooling Tubes 
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For the rectangular arrangement (Fig, 27), 

ird 0 AZ 7rd 0 

= P P A7 = R p 
H V 'H r V 


(A. VII. 17) 


For design purposes, the height of an elemental volume of the 
combustor corresponding to each cpmpartment is chosen. The height 
should be so chosen that the total number of compartments in the 
combustor is always less than the maximum dimensions allowed by the 
program. Then, heat transfer tubes specifications for each compartment 
is calculated along with the diameter and cross sectional area. The 
differential volume of each compartment, and the effective volume 
(excluding the volume occupied by the tubes) are computed. 

Volume occupied by the tubes per unit volume of bed is given as 


follows: 

M So ) A? 

(for triangular arrangement) ? : — 

? Vy az 

Cj 4 0 2 DAZ 

(for rectangular .arrangement)? -4 p . . . — 

'H'V ^ ‘ 

Volume fraction of tubes is then equal t.o 


^ a uc (A. VII. 18) 
4 HE 


~ g (A. VI 1. 19) 


E tube = ^ ~ effective yolujjie/tptal volume 


For each compartment, tube diameter, specific heat transfer area, 
tube fraction, volume and .effective volume are calculated. 

9. Subprogram ELUT 

This subroutine subprogram is the basis for the entrainment 
calculations. Entrainment calculations for limestone are performed 
first followed by char entrainment calculations, 

From the bed operating conditions , total bed weight is known. 
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Initially, the size distribution of the bed is assumed knowing the feed 
particles size distribution. Based on the assumed bed size distribution, 
mass balance calculations for each close size fraction are performed, 
and the bed weight and the new bed size distribution are calculated. 

If the calculated bed weight equals the known bed weight, the iteration 
is stopped; otherwise, procedure is repeated using the . calculated bed 
size distribution for the next iteration. 

The axial gas dispersion coefficient in the freeboard is then 
calculated from Reynolds number and Peclet number. From the dispersion 
coefficient, number of compartments and hence the compartment size in 
the freeboard are calculated. At each freeboard height, the solids 
entrainment rate and the average particle sizes are computed. 

A similar procedure with slight modification is adopted for char 
entrainment calculations. To start with, carbon combustion efficiency 
is assumed and the average carbon concentration (weight fraction) in 
the bed is calculated based on carbon balance. Knowing the bed weight 
and carbon concentration in the bed, the weight of char in the bed is 
calculated. From the coal particle feed size distribution, the bed 
char size distribution is assumed. Mass balance for each close size 
fraction of char is performed. Based on the bed char size distribution, 
entrainment rate along the freeboard height is calculated. The effect- 
of diminishing char particle size due to combustion is taken into 
account in the char entrainment calculations. The char leaving the 
combustor unburnt is calculated. The combustion efficiency is 
calculated again. If the assumed and calculated efficiencies equal, 
the iteration is stopped; otherwise, procedure is repeated by assuming 
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a new initial value for combustion efficiency. The calculated results 
will give the size distribution of limestone and char in the bed, the 
average particle sizes' of limestone and char, and their entrainment rates 
along the freeboard height, bed, solids, withdrawal rate, char elutriation 
rate, solids elutriation rate and the- combustion efficiency. 

10. Subprogram FBC 

This subroutine subprogram considers the freeboard char combustion 
and solves the material balance, equations for oxygen in the freeboard. 
There will be two. cases, in the calculations, (i) oxygen rich or excess 
air conditions, and (ii)‘ oxygen starved conditions . For the oxygen rich 
case, Regula Falsi method' is applied to calculate the oxygen concen- 
tration since the calculations involve a L trial' and" error procedure. 

11 . Subprogram GPB 

The material balance equations for oxygen in the emulsion phase 
and in the bubble phase are solved in this subroutine using the 
subroutine SIMQ. Two different cases are encountered in the solution: 

(i) the oxygen concentration in the emulsion phase is zero and 

(ii) the volatiles concentration in the emulsion phase is zero. The 
equations are solved by trial and error procedure. 

12 . Subprogram GPHASE 

This subroutine is designed for solving the material balance 
equations in the emulsion phase and in the bubble phase for S0 2 
and NO Cnitri c oxide) . 

13. Subprogram HAREA 

This subprogram calculates the' height of the specific conpartment 
above the distributor for the given cross sectional area of that 
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compartment . 
The height Z, 
equation 

Z - Z. , 
J-l 


The idea is basically the same as that of subprogram AREA, 
corresponding to the area, A^, is calculated by the 


(A /A ) 1/2 - 1 

+ 1/2 (Z i ' Z i-P 

CA-/A. X ) 1/Z - 1 3 3 


(A. VII .21) 


This subroutine is called from subroutine HYDRO to determine the height 

of the bed where U = U This situation does not occur at the 

o mf 

cylindrical section, but occurs only at the tapered section. Therefore, 
Aj > A and the error of dividing by zero is automatically avoided. 

14 . Subprogram HEIGHT 

This function subprogram calculates the height of the bed fox the 
given effective volume of the bed. Effective volume is the total 
volume of the bed minus the volume occupied by the tubes. 

15 . Subprogram HYDRO 


This subroutine subprogram essentially calculates the bubble 
hydrodynamics of the bed. In the first part of the calculations, the 
compartment size is assumed and hence the bubble size. Then, from 
the correlation, bubble size in that compartment is calculated. If 
the assumed and calculated bubble sizes are equal to each other, then 
the iteration is stopped; otherwise, a new compartment size is assumed 
and the procedure repeated. For each compartment, cooling tubes 
specifications, effective volume, total volume, height above the 
distributor and the cross sectional area at that height are calculated. 
After. the bubble size calculation, the hydrodynamic calculations are 
done using the equations listed in Table 2. 
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The program is also designed to take into consideration the 
formation of a fixed bed section over the fluidized bed section. 

First, the volume of bed at minimum fluidization is evaluated in the 
case when the expanded bed height is not given. (Either the minimum 
fluidization height or the expanded bed height has to be specified 
in the input) . Subroutine HYDRO is called inside the temperature 
iteration loop. Depending upon the temperature of the bed, the 
hydrodynamic parameters and the bed height are determined. If more 
number of compartments are- needed than that of the earlier iteration, 
then for the excess number of compartments the temperature, carbon 
concentration, bubble and emulsion phase oxygen concentrations are 
taken as those corresponding to the last compartment in the earlier 
iteration. 

Knowing the temperature, density and viscosity of the gas, minimum 
fluidizing velocity and superficial velocity are calculated for each 
compartment. U Q is compared with U £. If the cross-sectional area of 
the bed increases as the height increases (for tapered geometry) , the 
superficial velocity decreases. If at any instance, U Q is less than or 
equal to U mf’ it represents the end of fluidized section and the 
beginning of a fixed bed section. Then different calculations are to 
be performed for the fixed bed section. Four different cases are 
analyzed: 

(i) Expanded bed height given, no fixed bed section: 

For each compartment, the bubble hydrodynamics is calculated. 
The iteration is performed till the height of the last compartment 
reaches the expanded bed height. 



c ... 

(nj Expanded bed height given, fixed bed section present-: 

The bubble hydrodynamics is calculated for each compartment. 

As the height increases, U o is decreasing, and when it is smaller than 
U mf' critical height has been reached. The critical height corresponds 
to the height of the bed above the distributor at which- the fixed bed 
section starts. At this location U o is equal to U m £* Above this 
height, there is no fluidization, and the bubble fraction is zero. 

The presence of critical height and fixed bed are tagged' by the symbols 


ICR and IFBC. If they are greater than zero, critical height and 
fixed bed section are present. 

For each compartment the volume of solids (including the voids) 
and the effective height of the solids are calculated. Sum of these 
heights would be the height' of the bed at minimum fluidization. 

(iii) Height at minimum fluidization given, no fixed bed section: 
Instead of basing the convexgency criterion directly on the 
minimum fluidization height, the volume of the bed at minimum fluidiza- 
tion is used. This would help avoid any inacurracy involved in the 
calculation of the effective solids height in each compartment . Also, 
it would be easy to determine the total bed height when the effective 
volume of solids in the bed equals the volume at the minimum fluidiza- 
tion. The sum of each compartment volume, effective volume of solids 
(excluding the bubbles and tubes) and the effective height of solids 
are computed. The iteration continues till the effective solids 
volume equals the volume at minimum fluidization. If it exceeds 
volume at minimum fluidization, the excess solid volume, corrected 
for the expansion and tube fraction, is subtracted from the effective 
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volume of the bed to give the correct volume of the bed. From this 
effective volume of the bed, the expanded bed height is calculated. 

(iv) Height at minimum fluidization given, fixed bed section 

present: 

> 

As before, computations are performed till U Q becomes smaller 

than U ... In the fixed bed section, the bubble fraction is zero. 

mf ; . - 

Fixed bed is equivalent to the condition of minimum fluidization.. Total 

b’bv 

volume of the bedVi's' the sum of the effective volume, of solids in the 
fluidized bed section and the difference in the minimum fluidization 
volume and' the volume of solids in the fluidized section,. Total height 
of the bed is computed from the total volume of the bed. 

16. Subprogram SIMQ 

A copy of this SSP (Scientific Subrouting Package) subroutine 


supplied by IBM is attached. 

17. Subprogram VEL 

This subprogram calculates the minimum fluidization velocity and 
the terminal velocity of the particle. . The terminal velocity is 
calculated from (Kunii and Levenspiel, 1969): 


U 

t 


2 

gc p s - y d p 

18p 


for R e,p > 


0.4 


(A. VII. 22) 




t L 225 


(p - p ) 2 g 2 !/ 3 

— — ]' d for 0.4 < R < 500 (A.VII.23) 

Pg V P e,p 


3.1 g (p - P )d V 2 

U =. [ = for 500 < R 

t L P g 6jP 


(A. VII. 24) 


R = d P 0 /y 
e,p p M g V 


(A. VII. 25) 
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Subroutine SIMQ 
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A SET Of SlHULlANfcOUS ttlt€RN EQUAtlONS, 


USA.* 

CALL SiHjU,d.rtt<S1. 

UESCAIPTIUN 0#= -AAJU1fcre4S 

A - MATAT* OF C0£ff l£Ic*r> STJ*tkU COlUMNHlSC* fHt« ARE 
utsraurEj in iHt c^pjution. the sm or matrix a is 
x s r >4. 

A - tfcLTJrt t/ ORIGINAL CJlSIXUS ( LENGTH N» . TrtESfc ARE 
KE»H.4Cci> at FINAL SOLUTION VALUES* VECTUA X. 

I - NJKA^K GF LOUAriONS A NO VARIABLES. ft MUST BE .Gf. ONE. 

AS - jJlRUf OlGlT 

0 FOR A NORMAL SOLUM UN 

1 FOX A SINGULAR $£T OF EQUAlJONS 

xeraras 

RAJ A IX A MOST BE Gf'teXAL* 

IF MATRIX IS SINGULAR » SOLUTION VALUES ARE MEANINGLESS* 

AN ALTtRNAflVc SOLUTION NAY 8b OBTAINED BY USING MATRIX 
IflVMSIlM H(W> AN J MATRIX PRODUCT CGHPROI . 

SUBROUTINES AND FONCTIJM SUBPROGRAMS REQUIRE!* 
nlLiE 

Me T MOO 

METHOD ax rtOLUnox IS *V ELIMINATION USING LARGEST PIVOTAL 
JlVlSuA. EACH STAuE OF £L 1KIHA IION CONSISTS OF INICACHAMC JMGStMQ MO 


sino 

10 

SlMO 

20 

SIMQ 

30 

SIMQ 

40 

SIMQ 

50 

SIMQ 

60 

SINQ 

70 

sing 

10 

sing 

9C 

SIMQ 

100 

SI HU 

I to 

SIMQ 

120 

SIMQ 

130 

SIMQ 

IvO 

SIMQ 

150 

SIhQ 

1*0 

SIMQ 

17C 

SIMQ 

1*0 

Si MQ 

190 

SIMQ 

200 

$?HQ 

2 IQ 

SIMQ 

220 

SIKQ 

230 

SIMQ 

240 

SIMQ 

250 

SI MU 

260 

SIMQ 

270 

SIHQ 

260 

StHQ 

290 

SIMQ 

300 

SIMQ 

Jt 0 

SIMQ 

320 

SIMQ 

330 

SIHQ 

540 


sing 363 
sing jjo 
sing 3flO 
si no 390 
SIMQ A00 
SinQ 410 
SIMQ 420 
SINQ 430 
SIMQ 440 


StlBRJUMNE SlMOiAtd.H.X&l 
GtrttNSIGx AUJ.AtlJ 

FQHAAAJ SOLUTION 

TCL.O.O 

KS»0 

oo as j*L»n 

tm«2 

OO 33 l*J.ft 

SEARCH FOR MAXIMUM COEFFICIENT I* COLUMN 

IF ( AQS( EtI o A ) -AAS t Al tJ)|> 10*30*30 
2C tflGA-AllJI 
IMAX>( 

JC CONTINUE 

TEST FJR PWOT LESS THAN TOLERANCE I SINGULAR MATRIU 
IfUdSlBltMl-IULl 35,35*40 

35 RS*L 
AETUaN 


<Q*i tfH&H NbCESSARV TO AVJIU DIVISION QV OR SHALL 

ELEMENTS. 

Trt£ FQR4RR0 SOLUTION TO OBTAIN VARIABLE N IS l»3Nt IN 
5 STAGES* fHtOACX. SCJLUUDN F OR THE OTHER VARIABLES IS 
CAtCULATeJ QV SUCCESSIVE SUdST IfUl IONS. FINAL SOLUTION 
VALJcS are OfcVELOPEO IN VECTOR d, WITH VARIABLE l IN Bill* 

VARIABLE 2 IN 3121* * VARIABLE N IN i(K». 

IF NO PIVOT CAN ic FOUND EXCEEDING A TOLERANCE OF 0.0, 

THt MATRIX IS CONSlOEReO SINGULAR ANQ KS IS Sfcl TO 1. THIS 
TiA.eR.UCc CJfl Be «COIFl£D flr REPLACING TH£ FUST STATEMENT* SI HQ 450 

SIMQ 440 

........ SINQ 470 

SIMQ 480 
SIMQ 490 
StMQ 500 
SIMQ 313 
STMQ 520 

Sing Sao 

SIMQ 540 
SIMQ 550 
SIMQ 560 
S1KQ *70 
SIMQ 580 
SIMQ 590 
SIMQ 600 
StMQ 610 
SSMQ *20 
SIMQ *50 

sing *40 
sing 050 

sing 660 

SIftQ 670 
Sing 660 

SIMQ *90 
SSMQ 700 
sinq no 
SIMQ 120 
SIMQ 730 
SIMQ 740 
SIMQ 750 
SIMQ 7 b& 
SIMQ 770 
SIMQ 780 
Sing 790 
SIMQ 600 

SIMQ 619 

SIMQ 620 
SIMQ 130 
SfKQ 640 
SIMQ BIO 
SIMQ 660 
SIMQ 870 

SIMQ JSO 
SIMQ 890 
SIKQ 900 
SIMQ 910 
SIMQ 920 
SIMQ 930 
SIMQ 94Q 
SIMQ tSQ 
SINQ 940 
SIMQ 970 
SIMQ 96C 
SIMQ 990 
SIMUKOOO 
SIMQIQ10 
SIM0IQ2O 
SIMQ13IO 
ttMQtQ40 
StHQtOSO 
S1HQLQ60 
S1MQI070 
SIM01CS0 
SIMQSQ90 
SJMQU03 
SlMOlUO 
SIKQ I 120 
5IMQU30 

SIHQI14Q 

S2MQI1S0 
SIMQU6Q 
SIMQII70 
SIMOIIBO 
SIMQI 190 
SIMQI2C0 
SIMQI2I0 
SIMQI220 


iNTcRurfANSE RONS if NECE5SARV 

40 !UJifi*IJ*l> 

IT*J*AX-J 
OO $sj A*J.N 
U-U*N 

SAVE-AI HI 
AltU-A! 12) 

At 12)*$AV£ 

DIVIDE EGUATIJH bY LEADING COEFFICIENT 

5C Aim-41 111/fllGA 
SAV€>d(lMAX) 

81 IKAXUtftJJ 
BUUSAVE/6IGA 

ELIMINATE NeXT VARIABLE 

IFIJ-NI 5**70*55 
55 JaS«N*l4-LI 
03 63 !X«JY*N 
UJ-UWX 
II-J-U 
OO 6C JX«jV*M 

uJx-v«nx-n*u 

JJX-IXJX*!! 

4C AIIXJAI-AUaJX I-CAI UJ)*A< jjx) » 

63 8(JXM<>CIXJ-(dU)«A<IXjn 

dACA SOLUTION 

7C NY-N-t 

it-n*-* 

□U Vv J*ltNV 
IA-II-J 
I»»N“J 
1C«N 

00 63 4-UJ 

• 1131*91 16J-AC I A| *31 IC1 
lAilA-H 
Si/ fC-lC-1 
XcTUAN 
th3 



18. Subprogram VOLUME 

This function subprogram calculates the effective volume of 
th'e bed (excluding the tubes, including the voids) for a given height 
above' the distributor. 



APPENDIX VIII 

NOMENCLATURE FOR THE COMPUTER PROGRAMS 


155 


MAIN PROGRAM COMBUSTION 


FORTRAN 

Symbol 

Mathematical 
Symbo 1 

Description 

AAA 

- 

Matrix coefficients 

AE 

- 

Activation energy of char-NO reduction 
reaction, cals/gmole 

AHE 

(SEE DESIGN) 


AHEAV 


Specific heat transfer area of the tubes, 
cm2/ cm^ FBC volume 

AHEW 

®HEW 

Specific heat transfer area of the walls, 
cm^/cm^ FBC volume 

AK 

k vl 

Overall volume reaction rate constant for 
limestone - SO2 reaction, 1/sec 

AKB 

k c,B 

Overall rate constant for char combustion in 
bubble phase, cm/sec 

AKBE 

k be 

Gas exchange coefficient, 1/sec 

AKC 

k 

c 

Overall rate constant for char combustion, 
1/sec 

AKC02 

- 

Overall rate constant for C-CX^ reaction, 
cm/sec 

AKE 

k c,E 

Overall rate constant for char combustion in 
emulsion phase, cm/sec 

AKNO 

k NO 

NO reduction rate constant, cm/sec 

ALFA 

- 

Temperature matrix coefficients 

AMODF 

a 

m 

Defined by Equation (VI . 12) 

AND 

n d 

Number of orifices in the distributor 

ANH3V 

- 

NH3 content in the volatiles, gmole NH^/ 
gmole volatiles 

ANITRO 

- 

Nitrogen released during char combustion, 
gatom/sec 

AT 

A t 

2 

Cross sectional area of the bed, cm 
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FORTRAN 

Symbol 

j^tfieinat Teal 
Symbol .. . . 

■Des-'cription 

ATB 

’(SEE tiE^iGN) 


•BBB 

- 

t » .* » „ * • £ *. , 

Matrix coefficients 

BEDCOM 

- 

’Char 'combustion rate in the bed, gm/sec 

BED VOL 

- 

* 5 3 

Total bed volume, cm 

BETA 

■- 

Temperature matrix coefficients 

CADF • 

L Sf 

Heat capacity of feed additives, cals/gm* °C 

CARGON 

- 

Carbon concentration y gm carbon/ cm bed 
volume (including tubes) 

CAS 

7 

■ ea/S mol'ai rat'ib in fe’ed solids 

CASE 

- 

Effective Ca/S moiar ratio (including Ca in 
ash) 

GCF 

t A 
c£ 

Heat capacity of Coal feed, cals/gm- °C 

GCHAR 

•eh 

Garbon coritbht in Char , gm carbon/ gm char 

CELU 

- 

Char elutriated from the combustor, gms/sec 

CGM 

e 

gm 

Molar heat capacity of gas, cals/gmole °C 

CGMF 

V 

Molar heat capacity of feed gas, cals/gmole °C 

CHARC 

- 

Carbon' content in char,'' gmole carbon/ gm coal 

CHARH' 

- 

Hydrogen 1 content in 1 char,, gatom hydro gen/ gm coal 

CHARN 

- 

Nitrogen content in : char; gatom nitrogen/ gm coal 

CHARO 

- 

Oxygen content in' char, gatom oxygen/ gm coal 

CHARS 

- 

Sulfur content in’ char, gatom sulfur/gm coal 

CH4 


tit; fraction’ t CH^ iri f the volatiles.; CH^ released 
during devolatilization, gmole CH^/gm coal 

CEOSS 

- 

Total' carbon loss (elutriated' + withdrawn) , 
gm/sec 

CO- 

r *t 

CO' 

Wty fraction CO- in the volatiles; CO released 
durrn'g* devdl-at'iMz ation , gmole CO/ gm coal 

COABC 

- 

’ ... i 

Carbon 5 content* in coaly gatom carbon/ gm coai 

(tf.hyy 
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FORTRAN 

Symbol 

• Mathematical 
Symbol 

Description 

COALH 

- 

Hydrogen content in coal, gatom hydrogen/ gm 
coal (d.b.) 

COALN 

- 

Nitrogen content in coal, gatom nitrogen/ gm 
coal (d.b.) 

COALO 

- 

Oxygen content in coal, gatom oxygen/ gm coal 
(d.b,) 

COALS 

- 

Sulfur content in coal, gatom sulfur/gm coal 
(d.b.) 

COB 

- 

Carbon monoxide burnt in each compartment, 
gmole/sec 

COV 

- 

CO released during devolatilization per mole 
of volatiles released, gmole CO/gmole volatiles 

COVB 

- 

CO produced during volatiles combustion, 
gmole CO/gmole volatiles 

CO 2 

- 

Wt. fraction C0 2 in the volatiles; C0 2 
released during devolatilization, gmole C0 2 / 
gm coal 

C02V 

— 

CO 2 released during devolatilization per mole 
of volatiles released, gmole CC^/gmole 
volatiles 

C02VB 

- 

CO 2 produced during volatiles combustion, 
gmole C0 2 /gmole volatiles 

CS 

C S 

Heat capacity of solids, cals/gm °C 

CTAR 

- 

Carbon content in char, gm carbon/ gm coal fed 

DASVF 

- 

Surface volume mean particle diameter of 
additives in the feed, cm 

DAWMF 

- 

Weight mean particle diameter of additives 
in the feed, cm 

DBAV 

d b 

Bubble diameter in each compartment, cm 

DCSE 

d ca 

Surface volume mean diameter of char particles 
in the freeboard, cm 

DCSVB 

d 

c 

Surface volume mean diameter of char particles 
in the bed, cm 



FORTRAN 

Symbol 


Mathematical 

Symbol 


Des cription 


DCSVF 


Surface volume mean diameter of coal 
particles in the feed, cm 

DCWE 

- 

Weight mean diameter of char particles 
in the freeboard, cm 

DCWMB 

- 

Weight mean diameter of char particles 
in the bed, cm 

DCWMF 

- 

Weight mean diameter of coal particles 
in the feed, cm 

DELT 

- 

Temperature matrix coefficients 

DETC 

- 

Increment in combustion efficiency 

DETS 

- 

Increment in sulfur dioxide retention 
efficiency 

DNZL 


Diameter o'f orifice holes in the 
distributor, cm 

DPDIS 

- 

Pressure drop across the distributor, 
cm ! H- 2 0 

DPFIX 

- 

Pressure drop across the fixed bed 
section, cm H^O 

DPFLU' 

- 

Pressure drop across the fluid bed 
se'cti'on/ cm' H^O 

DPSE 

d ile 

Surface volume mean particle diameter 
of additives entrained in the free- 
board', cm 

DPSVB 


Surface volume mean particle diameter 
of additives in the bed, cm 

DPWE 

“ 

Weight mean particle diameter of 
additives entrained in the free- 
board, 1 cm 

DPWMB 

“ 

Weight mean particle diameter of 
additives in the bed, cm 

DTUBE 

(SEE DESIGN)' 


DVBB 

- 

3 

. Volume of each compartment, cm 
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FORTRAN 

Symbol 

DT 

EETCM 

EETSM 

EFF 

l 

EFFVOL 

t 

EINDEX 

EMF 

ENOX 

EPB 

EPC 

ETC 

ETC A 

ETCC 

ETCG 

ETN 

ETC 

ETSC 

ETUBE 

EXAIR 


Mathematical Description 

Symbol 

Diameter o£ the combustor, cm 

Tolerance limit for combustion efficiency 
convergency 

Tolerance limit for sulfur dioxide retention 
efficiency convergency 

Combustion efficiency calculated from 
elutriation calculations 

3 

Volume of bed (excluding tubes), cm 

Nitric oxide emission index, gmole 
- NO/ gm coal burnt 

e _ Void fraction at minimum fluidization 

mf 

Nitric oxide emission, mole fraction 
£_ Bubble fraction 

D 

e c • Cloud fraction including bubble 

Carbon combustion efficiency 

Assumed carbon combustion- efficiency 

Carbon combustion efficiency based 
carbon balance 

Carbon combustion efficiency based 
on oxygen balance 

NO^ emission efficiency 

Sulfur dioxide retention efficiency 

Calculated sulfur dioxide retention 
efficiency 

s , Volume fraction of tubes in each 

tube „ 

compartment 

Excess air, fraction 
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fortran; 

Symbol 

Mathematical 

Symbol 

Description 

FBCOM 

- 

Char; combustion rate- in the freeboard, gm/sec- 

FBM 

f bm 

Molar flow, rate, of- gas in- the- bubble -phase, 
gmole/sec- 

ED 

- 

Fraction of solids withdrawn from the 
bed at each location 

FEM 

f em 

Molar flow rate- of gas in the emulsion . 
phase, gmole/sec 

FFAD 

- 

Fraction of total additives fed at each 
location 

FFC 

- 

Fraction of total coal fed at each 
location 

FMF 

- 

Molar feed fate of fluidizing air, gmole/sec F 

FMTH 

- 

Stoichiometric air feed rate, gmole/sec 

FMO 

F 

MT 

Total molar flow rate of gas in the 
combustor, gmole/sec 

FR 

- 

Frequency factor for char-NO reaction, 
cm/sec 

FRN 

- 

Feed rate of fuel nitrogen, gatom/sec 

FRS 

- 

Feed rate of fuel sulfur, *gatom/sec 

FS 


Fractional conversion of limestone 

FSIV 

(SEE DESIGN) 

i 

F1V 

f 

w 

Solids mixing parameter, .ratio of 
wake volume to the bubble volume 
including the wakes 

G 

g 

2 

Acceleration due to gravity, cm/sec 

GAMA 

- 

Temperature matrix coefficients 

GB 

% 

Volatiles burning rate in the bubble 
phase, gmole/sec 

GE 

g E' 

Volatiles .burning rate' in the emulsion 
phase,- gmole/sec 

GENB 

- 

S0~; or N0' x release rate in the bubble 
phase or- in the - .freeboard due to 
volatiles combustion, gmole/sec 
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FORTRAN 
Symbo 1 

Mathemati cal 
Symbol 

Description 

GENE 

- 

SO- or NO^ release rate in the emulsion 
phase ox in the freeboard due to 
volatiles combust ion , gmole/sec 

GFLOW 

G 

Gas flow rate, gms/sec 

H 

- 

Height above the distributor, cms 

HB 

h 

Height above the bed surface, cms 

HAREA 

- 

Total heat transfer area of cooling tube; 
(based on outside diameter of tube) , cm‘ 

HCHAR 

- 

Hydrogen content in char, gm hydrogen/ gm 
char 

HCOAL 

- 

Lower heating value of coal, cals/gm 

HCR 

- 

Critical bed height above which there 
is a fixed bed section, cm 

HFB 

- 

Freeboard height, cm 

HLF 

- 

Expanded bed height, cm 

HLMF 

- 

Bed height at minimum fluidization, cm 

HTAR 

- 

Hydrogen content in tar, gm hydrogen/ gm 
coal fed 

H2 

h 2 

Wt. fraction H 2 in the volatiles; H 2 
released during devolatilization, 
gmole H 2 /gm coal 

H20 

h 2 o 

Wt, fraction H 2 0 in the volatiles; H 2 0 
released during devolatilization, 
gmole H 2 0/gm coal 

H2SV 

- 

H 2 S content in the volatiles, gmole H 2 S/ 
gmole volatiles 

I'ARR 

(SEE DESIGN) 


fcr 

- 

Indicator for cirtical bed height 

IFBC 

- 

Indicator for fixed bed section 

IGNITE 

- 

Indicator for combustion calculations 

INOX 

- 

Indicator for N0 x calculations 

IPRES 

- 

Indicator for pressure drop calculations 
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FORTRAN 

Symbol 

Mathematical 

Symbol 

Des cription 

IS02 

- 

Indicator for S0 2 calculations 

ITEMP 

- 

Indicator for temperature calculations 

ITRIAL 

- 

Number of trials made in the combustion 
calculations 

' KT 

- 

Number of compartments in freeboard 

MAIR 

-- 

Molecular weight of air, gms/gmole 

MC 

- 

Atomic weight of carbon, gms/gatom 

MCAO 

- 

Molecular weight of calcium oxide, 
gms/gmole 

MCAC03 ' 

- 

Molecular weight of calcium carbonate, 
gms/gmole 

MCAS04 

- 

Molecular weight of calcium sulfate, 
gms/gmole 

MCO 

- 

Molecular weight of carbon monoxide, 
gms/giiiole 

MC02 

- 

Molecular weight of carbon dioxide, 
gms/ gmole 

MDIS 

- 

No. of solids withdrawal locations 

MFEED 

- 

No. of solids feed locations 

MGAS 

- 

Molecular weight of combustion gases, 
gms/gmole 

MH2 

- 

Molecular weight of hydrogen, gms/gmole 

Ml 20 

- 

.Molecular weight of water, gms/gmole 

MH2S 

- 

■ Molecular weight of hydrogen sulfide, 
gms/gmole 

MMGC03 

- 

Molecular weight of -magnesium carbonate, 
gms/gmole 

MMGO 

- 

Molecular weight of onagnesium oxide,, 
gms/gmole 

MN 

- 

Atomic weight of nitrogen, gms/gatom 
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FORTRAN 

-Symbol 

Mathematical 
Symbol - 

Description 

MNO 

- 

Molecular weight of nitric oxide, gms/gmole 

MN2 

■ • 

Molecular weight of nitrogen, gms/gmole 

MO 2 

- 

Molecular weight of oxygen, gms/gmole 

MS 

- 

Atomic weight of sulfur, gms/-gatom 

MS 02 

- 

Molecular weight of sulfur dioxide, 
gms/gmole 

-MTAR 

- 

Average molecular weight of tar in the 
volatiles, gms/gmole 

MTB 

(SEE DESIGN) - 


MTHE • 

(SEE DESIGN) 


Ml 

- 

No. of compartments in the bed + 1 

NA 

- 

No. of additive particles in the freeboard 

.NAMEC1 
NAME C 2 

’ 

Name of coal 

NAME LI 
NAMEL2 

- 

Name of limestone 

NC 

- 

No. of char particles in the freeboard 

NCHAR 

- 

Nitrogen content in char, gm nitrogen/ 
gm char 

NTC 

- 

Total number of compartments in the 

• combustor using DZAV + 1 

• * 

OCHAR 

- 

Oxygen content in char, gm oxygen/ gm char 

OTAR 

- 

Oxygen content in tar, gm oxygen/ gm coal fed 

PAV 

P 

Average pressure in the combustor, atm 

PF 

- 

Pressure of fluidizing air at the inlet 
to the distributor, atm 

PH 

(SEE DESIGN) 


PHIB 


Mechanism factor in the freeboard 

PHIE 


Mechanism factor in the emulsion phase 

PI 

7T 

3.14159265 

PV 

(SEE DESIGN) 
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FORTRAN 

Symbol 

QAREA 

QCHAR 

QCLGN 

QCO 

QTRANS 

QVCO 

QVGAS 

QVOL 

R 

RC 

RCHAR 

RELB 

RELE 

RG 

RH 

RHOAD 

RHOASH 

RHOBED 


Mathematical Description 

Symbol 


A 




P b 


Heat transfer rate to the tubes per 
unit heat transfer area of tubes, 
cals/ cur .sec 

Heat of combustion of char, cals/gm 

Heat of calcination of limestone, 
cals/gm 

Heat of combustion of carbon monoxide, 
cals/ginole 

Total heat transferred to the cooling 
medium, cals/sec 

Heat of partial combustion of volatiles, 
cals/ gmole 

Heat of combustion of volatiles, cals/gmole 

Heat transfer rate per unit volume of 
bed, cals/ cm -5 

Defined by Equation (V.2) 

Fraction of carbon remaining in char after 
devolatilization, gm carbon/gm carbon in 
coal 

Char produced per unit gm of coal fed, 
gm/gm 

Total release rate of SC^ or NO^ in the 
bubble phase, gmole/sec 

Total release rate of S0 2 or NO^ in the 
emulsion phase, gmole/sec 

Gas constant, 82.06 atm. cm /gmole. °K 

Fraction of hydrogen remaining in char 
after devolatilization, gm hydrogen/ 
gm hydrogen in coal 

Density of additives, gms/cm3 

3 

Density of ash, gms/cm 

3 

•Density of the bed materials, gms/cm 

3 

Density of coal, gms/cm 


RHOC 
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FORTRAN 

Symbol 

RHOCH 

RHOGAS 

RHOFG 

RN 

RO 

RR 

RRB 

RRE 

RS 

RVGAS 

SCHAR 

SOLVOL 

SULFUR 

T 

TAR 

TARC 


Mathematical 
Symbol 



T 

Tar 


Description 


3 

Density of char, gms/cm 

3 

Density of gas, gms/cm 

Density of the fluidizing air at the 
inlet to the distributor, gms/cm^ 

Fraction of nitrogen remaining in 
char after devolatilization, gm 
nitrogen/ gm nitrogen in coal 

Fraction of oxygen remaining in char 
after devolatilization, gm oxygen/-gm 
oxygen in coal 

Rate of combustion of char in each 
compartment per unit weight fraction of 
carbon in the bed, gms/sec; heat 
generation rate minus heat of calcination 
in each compartment, gms/sec 

Rate of combustion of char in the bubble 
phase, gms/sec 

Rate of combustion of char in the emulsion 
phase, gms/sec 

Fraction of sulfur remaining in char after 
devolatilization, gm sulfur/gm sulfur in 
coal 

Volatiles released during devolatilization 
per unit gm of coal, gmole volatiles/gm coal 

Sulfur content in char, gm sulfur/gm char 

Volume of solids in the bed (including voids) 
which is equal to volume of bed at minimum 
fluidization (excluding the internals), cm^ 

Sulfur released during char combustion, 
gatom/sec 

Temperature, °K 

Wt. fraction tar in the volatiles; tar 
released during devolatilization per 
unit gm of coal, gmole tar/gm coal 

Stoichiometric air required per unit 
gm of char, gmole/gm char 
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FORTRAN 

Symbol 

Mathematical 

Symbol 

Description 

TAV 

- 

Mean bed temperature, °K 

TAVB 

T 

B 

Mean temperature in the boundary layer 
of the char particles in the bubble 
phase, °K; also in the freeboard, °K 

TAVE 

t e 

Mean temperature in the boundary layer 
of the char particles in the emulsion 
phase, °K 

TCRATE 

- 

Total char combustion rate, gm/sec 

TETUBE 

- 

Total volume fraction of tubes in the bed 

TF 

- 

Temperature of fluidizing air at the inlet 
to the distributor, °K 

TFC 

. 

Total char feed rate, gms/sec 

TNORM 

- 

Temperature criterion fox convergency 

TOLD 

- 

Bed temperature in the previous iteration, 
°K 

TPB 

- 

Char particle temperature in the bubble 
phase, °K; also in the freeboard, °K 

TPE 

- 

Char particle temperature in the emulsion 
phase, °K 

TSF 

- 

. Temperature of feed solids, °K 

TSTA 

- 

Starting temperature (assumed) for 
iteration, °K 

TO 

- 

Cooling water temperature, °K 

TWALL 

- 

Wall tenperature, °K 

TWALLA 

- 

Average wall temperature used for 
heat losses, °K 

TOAV 

- 

Log mean temperature of the cooling 
water 

TWIN 

- 

Inlet water tenperature, °K 

TWOUT 

- 

Outlet water temperature, °K 
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FORTRAN 
Symbo 1 

Mathematical 
Symbo 1 

Description 

UB 

U B 

Bubble velocity, cm/sec 

UHE 

U 

Bed to tube heat transfer coefficient, 
cals/sec *cm^ • °C 

TJHEAV1 

- 

Bed to tube heat transfer coefficient 
(average) within the bed, cals/sec-cirr°C 

UHEAV2 

- 

Bed to tube heat transfer coefficient 
(average) in the freeboard, cals/sec* cm 
°C . 

UHEW 

U w 

Bed to wall heat transfer coefficient, 
cals/sec- cm2°C 

UMF 

U m£ 

Minimum fluidization velocity, cm/sec 

uo 

U o 

Superficial gas velocity .as a function of bed 
height, cm/ sec 

UOR 

- 

Orifice velocity, cm/ sec 

UT 

U t 

Terminal velocity of the particle, 
cm/sec 

UWALL1 

UWALL2 


Bed to wall heat transfer coefficient 
(average) within the bed, cals/sec 
cm2°C 

Bed to wall heat transfer coefficient 
(average) in the freeboard, cals/sec 
cm^ 

UO 

- 

Superficial gas velocity at the 
distributor, cm/sec 

V 

- 

Volatiles yield during devolatilization, 
gms volatiles/gm coal (daf) ; also gms 
volatiles/gm coal 

VAHOLD 

- 

Volumetric additives holdup in the 
freeboard; cm 3 solid volume 

VCHOLD 

- 

Volumetric char hold-up in the freeboard, 
cm 3 solid volume 

VGASN 

- 

Volatile nitrogen in coal, gatom/gm 
coal (d.b.) 

VGASS 

- 

Volatile sulfur in coal, gatom/gm coal (d.b.) 

vise 

V 

Viscosity of gas, gm/cm*sec 
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fortran 

Symbol 

Mathematical 
Symbo 1 

Des cription 

VM 

- 

Proximate volatile matter in coal, 
gm/gm coal (daf) 

VMF 

- 

Bed volume at minimum fluidization 
(excluding the internals) , crn^ 

VPROD 

- 

Volatiles released in each compartment, 
gmole/sec 

WAD 

W f,a 

Additives feed rate, gms/sec 

WAHOLD 

- 

Additives hold-up in the freeboard, gms 

WB 

M b 

Weight of bed materials, gms 

WCHOLD 

- 

Char hold-up in the freeboard, gms 

WCOAL 

- 

Coal feed rate as received basis, gms/sec 

WD 

- 

Solids withdrawal rate at each location, 
gms/sec 

WDIS 

W D 

Solids withdrawal rate, gms/sec 

WEA 

- 

Additives entrainment rate in the 
freeboard, gms/sec 

WEC 

- 

Char entrainment rate in the freeboard, 
gms/sec 

WELUA 

- 

Solids (excluding char) elutriation 
rate from the combustor, gms/sec 

WFAD 

W-. 

f,a 

Additives feed rate in each compartment, 
gms/sec 

WFC 

W. 

f,C 

Coal feed rate in each compartment, 
gms/sec 

WMIX 

w . 

mix 

Solids mixing rate, gms/sec 

WNET 

W . 
net 

Net flow rate of solids, gms/sec 

ww 

B 

Defined by Equation (V.3) 

X 

X 

Weight fraction carbon in the bed 

XA 

- 

Ash content in coal as received basis, gm ash/gm 
• coal 

XACAO 


Calcium oxide content in ash, gm CaO/gm ash 
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Symbol 

Mathematical 

Symbol 

Description 

XAV 

- 

Average weight fraction of carbon 
in the bed 

XC 

- 

Carbon content in coal, gm carbon/ 
gm coal (d.b.) 

XCAO 

- 

Calcium oxide content in limestone, 
gm CaO/gm limestone 

XCF 

- 

Fixed carbon content in coal, gm 
carbon/ gm coal (d.b.) 

XC02 

- 

Carbon dioxide content in limestone, 
gm C0 2 / gm limestone 

XCV 

- 

Volatile carbon content in coal, 
gm carbon/gm coal (d.b.) 

XH 

- 

Hydrogen content in coal, gm 
hydrogen/ gm coal (d.b.) 

XMGO 

- 

Magnesium oxide content in climes tone, 
gm MgO/gm limestone 

XN 

- 

Nitrogen content in coal, gm nitrogen/ 
gm coal (d.b.) 

XO 

- 

Oxygen content in coal , gm oxygen/ gm 
coal (d.b.) 

X02 

s 

Oxygen required for partial combustion 
of volatiles, gmole 0 2 /gmole volatile 

X02C 

X ° 2 ,c 

Oxygen required for complete combustion 
of volatiles, gmole 0 2 / gmole volatile 

XS 

- 

Sulfur content in coal, gm sulfur/gm 
coal (d.b.) 

XS102 

- 

Silicon dioxide content in limestone, 
gm Si0 2 /gm limestone 

XIV 

- 

Moisture content in coal as received basis, 
gm H 2 0/gm coal 

YAV 

- 

Average 0 2 concentration (assumed) for 
iteration, mole fraction 

YB 

~ 

Mble fraction Og or SO 2 or NO in the bubble 
phase 
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FORTRAN 

Mathematical 

Description 

Symbol 

Symbol 


YBO 

y b 

Mole fraction 0 2 in the babble phase 

YCO 

Y co 

Mole fraction CO 

YCOE 

Y 

E,CO 

Mole fraction CO in the emulsion phase 

YC02 

Y 

C0 ' 2 

Mole fraction C0 2 

YC02B 

y b,co 2 

Mole fraction C0 2 in the bubble phase 

YC02E 

y e,co_ 

Mole fraction C0 2 in the emulsion phase 

YE • 


Mole fraction 0 2 or S0 2 or NO in the 
emulsion phase 

YEO 

y e 

Mole fraction 0 2 in the emulsion phase 

YGO 

- 

Gaseous species concentrations at the 
exit, mole fraction 

YH20 

Y _ 

Mole fraction H_0 

H 2° 

2 

YNOX 

y no 

Mole fraction NO 

YO 

Y o 

Mole fraction 0 2 

YS02 

Y so 

Mole fraction S0 2 


2 


YV 

Y v 

Mole fraction volatiles 

YVE 

Y F v 

Mole fraction volatiles in the emulsion 


E,v 

phase 

ZAVG 

- 

Average height of each compartment 
above the distributor, cm 

ZB 

(SEE DESIGN) 


ZF 

- 

Locations of solids feed ports, cms 

ZHE 

(SEE DESIGN) 


ZDIS 

(SEE DESIGN) 




MAIN PROGRAM ELUTRIATIOM 
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FORTRAN 

Symbol 

AHE 

ATB 

CAS 

CCHAR 

CELU 

CHARC 

CHARH 

CHARN 

CHARO 

CHARS 

CH4 

CO 

COALC 

COALH 

COALN 


Mathematical 
Symbol 

(SEE DESIGN) 



ch 4 


CO 


Des crip t ion 


. 2 
Cross sectional area of the bed, cm 

Ca/S molar ratio in feed solids 

Carbon content in char, gm carbon/ 

,gm char 

Char elutriated from the combustor, 
gms/sec 

Carbon content in char, gmole . carbon/ 
gm coal 

Hydrogen content in char, gatom 
hydro gen/ gm coal 

Nitrogen content in char 1 , gatom 
nitrogen/ gm coal 

Oxygen content in char, gatom 
oxygen/gm coal 

Sulfur content in char, gatom 
sulfur/gm coal 

Wt . fraction CH^ in the volatiles; 

CH 4 released during devolatilization, 
gmole CH^/gm coal 

Wt. fraction CO in the volatiles; 

CO released during devolatilization, 
gmole CO/gm coal 

Carbon content in coal, gatom carbon/ 
gm coal fd.b .) 

Hydrogen content in coal, gatom 
hydro gen/ gm coal (d.b.) 

Nitrogen content in coal, gatom 
nitrogen/gm coal (d.b.) 


COALO 


Oxygen content in coal, gatom 
oxygen/gm coal (d.b.) 


COALS 


Sulfur content in coal, gatom 
sulfur/gm coal (d.b.) 
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FORTRAN 

Symbol 

COV 


COVB 


Mathematical Description 

Symbol 


CO released during devolatilization per 
mole of volatiles released, gmole CO/ 
gmole volatiles 

CO produced during volatiles combustion, 
gmole CO/ gmole vol'atiles 



C02V 


C02VB 

CTAR 


Wt. fraction C0 2 in the volatiles; CO^ 
released during devolatilization, 
gmole CO^/gm coal 

CO 2 released during devolatilization per 
mole of volatiles released, gmole CO 2 / 
gmole volatiles 

CO 2 produced during volatiles combustion, 
gmole C0 2 / gmole volatiles 

Carbon content in tar, gm carbon/ gm 
coal fed 


DASVF 


Surface volume mean particle diameter of 
additives in the feed, cm 


DAWMF 


Weight mean particle diameter of additives 
in the feed, cm 


DCSE 

DCSVB 

DCSVF 

DCWE 

DCWMB 

DC WMF 



Surface volume mean diameter of char 
particles in the freeboard, cm 

Surface volume mean diameter of char 
particles in the bed, cm 

Surface volume mean diameter of coal 
particles in the feed, cm 

Weight mean diameter of char particles 
in the freeboard, cm 

Weight mean diameter of char particles 
in the bed, cm 

Weight mean diameter of coal particles 
in the feed, cm 


DIAfl) 


Feed particle diameter of ith fraction based on 
seiving screen size 



FORTRAN 

Symbol 

Mathematical 
’Symbo 1 

Des crip t ion 

DP 

d x 

Mean diameter of the particles of 
x th size fraction, cm 

DPSE 

d £e 

Surface volume mean particle diameter 
of additives entrained in the 
freeboard, cm 

DPSVB 

d £ 

Surface volume mean particle diameter 
of additives in the bed,* cm 

DP WE 


Weight mean particle diameter of 
additives entrained in the freeboard, 
cm 

DPWMB 

- 

Weight mean particle diameter of 
additives in the bed, cm * 

DTUBE 

(SEE DESIGN) 


EMF 

£ mf 

Void fraction at minimum fluidization 

EXAIR 

- 

Excess air, fraction 

FMF 

- 

Molar feed rate of fluidizing air, 
gmole/sec 

FMO 

f mt 

Total molar flow rate of gas in the 
combustor, gmole/sec 

FMTH 

- 

Stoichiometric air feed rate, 
gmole/sec 

FRACTA 

- 

Weight fraction of additives feed 
of x th size fraction 

FRACTC 

- 

Weight fraction of coal feed of 
x th size fraction 

G 

g ' 

Acceleration due to gravity, 
cm/sec^ 

GFLOW 

G 

Gas flow rate, gms/sec 

HCHAR 

- 

Hydrogen content in char, gm 
hydrogen/ gm char 

-HFB 

- 

Freeboard height, cm 

HLF 

- 

Expanded bed height, cm 



FORTRAN 

Symbol 

Mathematical 

Symbol 

Description 

HLMF 

- , 

Bed .height, at minimum fluidization, cm 

HTAR 

- 

Hydrogen content in tar, gm hydrogen/ 
gm coal fed 

H2 

H 2 

Wt. fraction H 2 in the volatiles; H 2 

' \ 


released, during devolatilization 
gmole H 2 /gm coal 

H20 

H 2° 

Wt. fraction H 2 0 in the volatiles; 

H 2 0 released during devolatilization,, 
gmole H 2 0/gm coal 

IARR 

(SEE DESIGN) 


MAIR 

- 

Molecular weight of air, gms/gmole 

MC 

- 

Atomic weight of carbon, gms/gatom 

MCAO 

- 

Molecular weight of calcium oxide, 
gms/gmole 

MCAS04 

- 

Molecular weight of calcium sulfate, 
gms/gmole 

MCO 

- 

Molecular weight of carbon monoxide, 
gms/gmole 

MC02 

- 

Molecular weight of carbon dioxide, 
gms/ gmole 

MGAS 

- 

Molecular weight of combustion gases, 
gms/gmole 

MH2 

- 

Molecular' weight of hydrogen, gms/gmole 

MH20 

- 

Molecular weight of water, gms/gmole 

MH2S 

- 

Molecular weight of hydrogen sulfide, 
gms/gmole 

MNO 

- 

Molecular weight of nitric oxide, gms/gmole 

MN2 

- 

Molecular weight of nitrogen, gms/gmole 

MO 2 

- 

Molecular weight of oxygen, gms/gmole 

MS 

- 

Atomic weight of sulfur, gms/gatom 
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FORTRAN 

Symbol 

Mathematical 

Symbol 

Description 

MS02 

- 

Molecular weight of sulfur dioxide, gms/gmole 

MTAR 

- 

Average molecular weight of tar in the 
volatiles, gms/gmole 

MTB 

MTHE 

(SEE DESIGN) 


NCHAR 

- 

Nitrogen content in char, gm nitrogen/ gm char 

NDP 

- 

Number of size fractions 

OCHAR 

- 

Oxygen content in char, gm oxygen/ gm char 

OTAR 

- 

Oxygen content in tar, gm oxygen/gm coal fed 

PAV 

P 

Average pressure in the combustor, atm 

PH 

(SEE DESIGN) 


PI 

IT 

3.14159265 

PV 

(SEE DESIGN) 


R 

A 

Defined by Equation (V.2) 

RC 

- 

Fraction of carbon remaining in char after 
devolatilization, gm carbon/gm carbon in coal 

RCHAR 

R ch 

Char produced per unit gm of coal fed, gm/gm 

RG 

R g 

3 

Gas constant, 82.06 atm-cm /gmole-°K 

RH 

- 

Fraction of hydrogen remaining in char after 
devolatilization, gm hydrogen/gm hydrogen 
in coal 

RHOAD 

- 

3 

Density of additives, grns/cm 

RHOASH 

- 

3 

Density of ash, gms/cm 

RHOBED 

p b 

3 

Density of the bed materials, gms/cm 

RHOC 

- 

3 

Density of coal, gms/cm 

RHOCH 

P ch 

3 

Density of char, gms/cm 

RN 

- 

Fraction of nitrogen remaining in char 
after devolatilization, gm nitrogen/gm 
nitrogen in coal 
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Symbol 

RO 

RS 

RVGAS 

SCHAR 

TAR 

TAV 

TDHC 

UO 

V 

VM 

VMF 

WAD 

WB 

WBC 

WCOAL 


Mathematical Description 

Symbol • - 


Fraction of oxygen remaining in char 
.after devolatilization, gm oxygen/ gm 
■ oxygen in coal 

Fraction of sulfur remaining in char 
after devolatilization, gm sulfur/ gm 
sulfur in! coal 


Tar 


TDH 


U 


0 

W f 

% 



W 


D 


Volatiles released during devolatilization 
per .unit gm of coal -gmole volatiles/gm 
coal 

Sulfur content in char, gm sulfur/ gm 
char 

Wt. fraction tar in the volatiles; tar 
released during devolatilization per 
, unit gm" of coal, gmole tar/gm coal 

. Mean .bed temperature, °K 

Transport disengaging height, cms 

Superficial, gas velocity as a function of 
bed height, cms/sec 

Volatiles yield during devolatilization, 
gms volatiles/gm coal (daf); also, 

, gms volatiles/gm ■ coal 

Proximate volatile matter in coal, 

■ gm/gm coal (daf) 

• Bed volume at minimum fluidization 
(excluding the internals) , cm 3 

Additives" feed rate, gms/sec 

Weight of bed materials, gms 

Weight of bed materials calculated, gms 

Coal feed rate as received basis,- gms/sec 

Solids withdrawal rate, gms/sec 


WDIS 
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FORTRAN 

Symbol 

Mathematical 

Symbol 

Description 

WELUA 

- 

Solids (excluding char) elutriation 
rate, gms/sec 

ww 

B 

Defined by Equation (V.3) 

XA 

- 

Ash content in coal, gm ash/gm coal 

xc 

- 

Carbon content in coal, gm carbon/ 
gm coal (d.b.) 

XCAO 

- 

Calcium oxide content in limestone, 
gm CaO/gm limestone 

XCF 

- 

Fixed carbon content in coal, gm 
carbon/ gm coal (d.b.) 

XC02 

- 

Carbon dioxide content in limestone, 
gm CC^/gm limestone 

XCV 

- 

Volatile carbon content in coal, 
gm carbon/gm coal (d.b.) 

XH 

- 

Hydrogen content in coal, gm 
hydro gen/ gm coal (d.b.) 

XMGO 

- 

Magnesium oxide content in limestone, 
gm MgO/gm limestone 

XN 

- 

Nitrogen content in coal, gm nitrogen/ 
gm coal (d.b.) 

XO 

- 

Oxygen content in coal, gm oxygen/ 
gm coal (d.b.) 

XS 

- 

Sulfur content in coal, gm sulfur/ 
gm coal (d.b.) 

XS102 

- 

Silicon dioxide content in limestone, 
gm Si 02 /gm limestone 

XW 

- 

Moisture content in coal as received basis, 
gm ^0/ gm coal 

ZB 

(SEE DESIGN) 


ZHE 

(SEE DESIGN) 
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SUBPROGRAM AKAD 

FORTRAN 

Symbol 

Mathematical 

Symbol 

Description 

ALIME 


Reactivity of lime 

AKAD 


Overall volume reaction rate constant 
for limestone S0 2 reaction, 1/sec 

DP 

d 

P 

Particle diameter, cm 

DPI 
DP 2 
DP 3 

- 

Specified particle diameter for which 
the limestone reactivity is given, cm 

FS 

f £ 

Fractional conversion of limestone 

FB 

- 

Limestone reactivity (given] 

RR 

- 

Mean reactivity of limestone particles 
of size, DPI 

RB 

- 

Mean reactivity of limestone particles 
of size, DP2 

RC 

- 

Mean reactivity of limestone particles 
of size, DP3 

SG 

s g 

Effective specific surface area of 
1 imes tone , cm 2 / gm 

T 

T 

Temperature in the bed, °K 



SUBPROGRAM AKK 

AKC02 

- 

Overall fate constant for C~C0 2 
reaction, cm/sec 

AKF 

k cf 

Gas film diffusion rate constant for 
0 2 i gm/cm 2 -sec>atm 

AKFC02 

- 

Gas fi-lm diffusion rate constant for 
C0 2> gm/ cm 2 -sec • atm 
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Symbol 

Mathemat ical 
Symbol 

Description 

AKRC02 

k C0 2 

C-CO2 chemical reaction rate constant, 
cm/sec 

AKR 

k c 

Overall rate constant for char 
combustion, cm/sec 

AKS 

k cR 

Chemical reaction rate constant for 
char combustion, cm/sec 

COND 

X 

Thermal conductivity of the gas, cals/ 
sec.cm-°C 

D 

D 

2 

Molecular diffusivity for 0 2 ~N2, cm/ 
sec; for cm 2 /sec 

DC 

- 

Diameter of char particle, cm 

DTS 

- 

Increment in temperature, °K 

EM 

£ 

m 

Emissivity of the char particle 

ETS 

- 

Difference between assumed and calculated 
temperatures, °K 

ETSMAX 

- 

Tolerance limit for temperature 
convergency, °K 

MC 

- 

Atomic weight of carbon, gms/gatom 

P 

- 

Pressure in the combustor, atm 

PHI 


Mechanism factor for char combustion 

Q 

- 

Heat of combustion of char, cals/gm char 

RG 

R s 

Gas constant, 82.06 atm. cm 3 /gmole.°K 

SIGM 

a 

2 A 

Stefan-Boltzman constant, cal/s .cni .°K‘* 

T 

T 

Temperature In the bed, °K 

TAV 

T 

m 

Mean temperature in the boundary layer 
of the particle, °K 

TP 

T c 

Char particle temperature, °K 

Y02 

- 

Mole fraction ojtygen 

Z 

P 

Defined by Equation (V.16) 



FORTRAN 

Symbol 

ATB 

ATI 

DTI 

MTB 

PI 

RI 

ZB 

ZI 

AKF 

AKR 

AKS 

COND 

D 

DC 

DTS 


SUBPROGRAM AREA 

Mathematical -Description 

Symbol ________ 

Bed cross se.ctional area at height ZB 
above the distributor, cm 2 

Bed .cross sectional area at height ZI 
above the distributor, cm 2 

D Diameter of the combustor -at height „ 

ZI above £he distributor, cms 

Number of locations along the combustor 
where the cross sectional areas are 
specified. 

IT 3.14159265 

Radius of the combustor at height ZI 
above the distributor, cms 

Height above the distributor at which 
the cross sectional area is specified, 
cms- 

Height above the distributor, cms 


. SUBPROGRAM ATTR 

k c £ . Gas film diffusion rate constant, 

L ■ gm/cm 2 -sec-atm 

k c Overall rate constant for char 

combustion, cm/sec 

k c ^ Chemical reaction rate constant for 

char combustion, gm/cm 2 .sec. atm 

A Thermal conductivity of the gas, cals/ 

sec -cm* °C 

2 

D Molecular diffusivity for O2-N2 cm /sec 

Diameter of the char particle, cm 
Increment in temperature, °K 

e m Emissivity of the char particle 


EM 
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FORTRAN 

Symbol 

Mathematical 

Symbol 

Description 

ETS 

- 

Difference between assumed and calculated 
temperatures, °K 

ETSMAX 

- 

Tolerance limit for temperature 
con ver gency , ° K 

MC 

M 

c 

Atomic weight of carbon, gms/gatom 

P 

- 

Pressure in the combustor, atm 

PHI 

<}> 

Mechanism factor for char combustion 

Q 

- 

Heat of combustion of char, cals/gm char 

RG 

R 

g 

•z 

Gas constant, 82.06 atm.cm /gmole • °K 

RHOCCH 

^c, ch 

3 

Density of carbon in char, gms/cm 

RKI 

- 

Size reduction constant for char 
(due to combustion), 1/sec 

SIGM 

a 

2 4 

Stefan- Bolt zman constant, cal/s.cm .K 

T 

T 

Temperature in the bed, °K 

TAV 

T m 

Mean temperature in the boundary layer 
layer of the char particle, °K 

TB 

s 

Burning time of a char particle, sec 

TP 

T 

c 

Char particle temperature, °K 

Y02 

- 

Mole fraction oxygen 

Z 

p 

Defined by Equation (V.16) 



SUBROUTINE CRRECT 

DX 

- 

Increment in the variable, x 

E 

- 

Difference between the assumed and 
calculated values of the variable, x 

EMAX 

- 

Tolerance limit for convergency 

El 

- 

Value of E in the iteration, I 

E2 

- 

Value of E in the iteration, 1+1 
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FORTRAN 

Symbol 

I 

INDX 

X 

XI 
X2 


Mathematical Description 

Symbol _______ 


Iteration or step number 

Indicator for convergency interval 

Variable for which the assumed, and 
calculated values should be equal 

Value of x in the iteration, I 

Value of x in the iteration, 1+1 


A1,A2,A3,A4 - 

ABED A t 

AHE- a H£ 

AND n d 

ATB 

DBED D t 

DNZL 

DTUBE d 

• o 

DVB 

DVBEFF 

DZAV 

FD 


SUBPROGRAM DESIGN 

Alphanumeric characters 

Cross sectional area of the combustor, 

cm^ 

Specific heat transfer area of the 
tubes, cm^/crn^ FBC volume 

Number of orifices in the distributor 

Bed cross sectional area at height 
ZB above the distributor, cm^ 

Diameter of the combustor, cm 

Diameter of orifice holes in the 
distributor, cm 

Diameter of cooling tubes, cm 

Volume of each compartment based on 
DZAV, cm 3 

Volume of each compartment excluding 
the tubes, cm 3 

Average compartment size used in 
design calculations, cm 

Fraction of solids withdrawn from the 
bed at each location 


FFAD - * Fraction of total additives fed at 

each location 
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Symbol 

FFC 

FSW 

FW 

IARR 

MDIS 

MFEED 

MTB 

MTHE 

NTC 

PI 

PH 

PV 

ZB 

ZD IS 

ZF 

ZHE 

BB 


Mathematical Description 

Symbo 1 . 


Fraction of total coal fed at each 
location 

f Fraction of wake solids thrown into 

the freeboard 

f Ratio of wake volume to the' bubble 

volume including the wakes 

Tubes arrangement code 

No. of solids withdrawal locations 

No. of solids feed locations 

No. of locations along the combustor 
where the cross sectional areas 
are specified 

No. of locations of cooling tubes 

Total number of compartments in the 
combustor using DZAV + 1 

u 3.14159265 

Horizontal pitch distance between 
the tubes, cm 

P Vertical pitch distance between the 

tubes, cm 

Height above the distributor at which 
the cross sectional area is specified, 
cms 

Locations of solids withdrawal ports, cms 
Locations of solids feed ports , cms 
Locations of cooling tubes, cms 


SUBPROGRAM ELUT 


Weight of bed material of x th size 
fraction, gms 
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fortran 

Symbol 

Mathematical 

Symbol 

Description 

CBED' 

- 

Weight of char in the bed, gms 

CBEDQ 

- 

Weight of char in the bed (calculated), 
gms 

CG-HAR 

C ch 

Carbon content in char, gm carbon/gm 
char- 

emu. 

- 

Char elutriated from the combustor,, 
gms/sec 

CENT 

- 

Char entrained in the freeboard, gms/sec 

eu 

- 

Fraction finer than size, d x 

DCSE 

d ce 

Surface volume mean diameter of char 
particles in the freeboard, cm 

OCSVB 

a 

C . 

Surface volume mean diameter of char 
particles in the bed, cm 

DCWE 

- 

Weight mean diameter of char particles 
in the' freeboard, cm 

DCIVMB 

- 

Weight mean diameter of char particles 
in the bed, cm 

DETC 

- 

Increment in combustion efficiency 

DP 

d x 

Mean diameter of the particles of 
x th size fraction, cm 

DPSE 

d £e 

Surface- volume mean particle diameter 
of additives entrained in the freeboard, 
cm 

DPSVB 

d £ 

Surface’ volume mean particle diameter 
of additives in the bed, cm 

DPWE 

- 

Weight mean particle diameter of additives 
entrained in the freeboard, cm 

DPWMB 

- 

Weight mean particle diameter of additives 
in the bed, cm 

DWDIS 

- 

Increment in the solids withdrawal rate, 
gms/se,c 
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FORTRAN 

Symbol 

Mathematical 

Symbol 

Description 

E 

E x 

Elutriation rate constant, gm/sec 

EETC 

- 

Tolerance limit for combustion 
efficiency convergency 

EMF 

£ mf 

Void fraction at minimum fluidization 

ENTA 

- 

Entrainment rate of additives of xth 
size fraction in the freeboard, gm/sec 

ENTC 

- 

Entrainment rate of char of x th size 
fraction in the freeboard, gm/sec 

ERR 

- 

Difference between assumed and calculated 
combustion efficiencies 

ETCA 

- 

Assumed combustion efficiency 

ETCC 

- 

Calculated combustion efficiency 

EWB 

- 

Tolerance limit for bed height convergency 

FCE 

- 

Weight fraction of char particles of x th 
size fraction entrained 

FFI 

a 

X 

Proportion of total abrasion fines in the 
x th size fraction 

FO 

- 

Solids entrainment rate at the bed surface 
of x th size fraction, gms/sec 

FRA 

b x 

Weight fraction of bed materials in the 
x th size fraction 

FRACTA 

- 

Weight fraction of additives feed of 
x th size fraction 

FRACTC 

- 

Weight fraction of coal feed of x th 
size fraction 

FRAEL 

- 

Weight fraction of additives of x th 
size fraction elutriated from the 
combus tor 

FRAEN 

- 

Weight fraction of additives of x th 
size fraction entrained in the freeboard 
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fortran 

Mathematical 

Description 

Symbol 

Symbol 

- 

t* ; - c ► 

FRC 

- 

Weight fraction of char particles of 
x th size fraction in the bed 

FSC 

- 

Fraction of solids in the cloud region 

FSW 

f 

sw 

Fraction of wake solids thrown into 
the freeboard 

F1V 

f 

s,w 

Volume fraction of wake to bubble 
(including wakes) 

GELOW 

G 

Gas flow rate, gms/sec 

HB 

h 

Height above the bed surface, cms 

HFB 

- 

Freeboard height, cm 

HLF 

- 

Expanded bed height, cm 

HLMF 

- 

Bed height at minimum fluidization, cm 

MGAS 

- 

■Molecular weight of gas, gms/gmole 

MTB 

— 

No. of locations along the combustor 
where the cross sectional areas are 
specified 

NDP 

- 

Number of size fractions 

PI 

Pi 

Proportion of' fines recycled to the bed 
from the primary cyclone 

P2 

P2 

Proportion of fines recycled to the bed 
from the secondary cyclone 

PAV 

P 

Average pressure of the FBC, atm 

PFA 

- 

Gain of fines in the x th size fraction 
due to abrasion, gms/sec 

Qi 

q lx 

’ Collection efficiency of the primary 
cyclones for the x th size fraction 

Q2 

q 2x 

Collection efficiency of the secondary 
cyclones fox the x th size fraction 

R 

- 

Entrainment rate of particles of size 
d x > gms/sec 

RCHAR 

*ch 

• Ghar produced per unit gm of coal fed, 
gm/gjn 
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FORTRAN 

Symbol 

Mathematical 

Symbol 

Description 

RG 

R 

g 

Gas constant, 82.06 atm. cm /gmole-°K 

RHOAD 

- 

3 

Density o£ additives, gms/cm 

RHOBED 

p b 

3 

Density of bed materials, gms/cm 

RHOCCH 

p c, ch 

3 

Density of carbon in char, gms/cm 

RHOCH 

■s 

CL 

3 

Density of char, gms/cm 

RHOGAS 

p g 

3 

Density of gas, gms/cm 

RK 

K 1 

Attrition rate constant, 1/cm 

RKI 

- 

Size reduction constant for char (due 
to combustion), 1/sec 

RT 

- 

Residence time of solids in the free- 
board, sec 

TAV 

- 

Mean bed temperature, °K 

TB 


Burning time 'of a char particle, sec 

TDH 

TDH 

Transport Disengaging Height, cm; 
if TDH > HFB, TDH = HFB 

TDHC 

TDH 

Transport Disengaging Height, cm 

UMF 

U m£ 

Minimum fluidization velocity, cm/sec 

UO 

U o 

. Superficial gas velocity at the bed 
surface, cm/sec 

UTA 

- 

Terminal velocity of additive particles 
of size d x , cm/sec 

UTC 

- 

Terminal velocity of char particles of 
size d x , cm/sec 

vise 

y 

Viscosity of gas, gm/cm.sec 

VMF 

- 

Bed volume at minimum fluidization 
(excluding the internals) , cm 3 

W 

w 

X 

Rate of transfer of particles from 
size fraction x to fraction x+1 


by size reduction, gms/sec 
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FORTRAN' 

Symbol- 

Mathematical 

Symbol 

Description 

WAD' 

W- 
£> a- 

Additives-. feed rate, gms/sec 

m> 

M b 

Weight of bed materials, gms 

me 

- 

Weight of bed materials calculated, 
gms. 

WCOAL. 


Coaf feed rate, gms/sec 

WDI-S 

W I> 

Solids, withdrawal rate, gms/sec 

WEA 

- 

Additives entrainment rate in the 
freeboard, gms/sec. 

WEC 

- 

Char entrainment rate in the 
freeboard, gms/sec 

WELUA 

- 

Solids (excluding char) elutriation 
rate, gms/sec 

WF 


Solids feed rate of x th size fraction, 
gms/sec 

WTF 

- 

Feed rate of (limestone + ash in coal) 

XA 

- 

Ash content in coal, gm ash/gm coal 

XAV 

— 

Weight fraction carbon in the bed 
(average) , gm carbon/ gm bed 
material . 

Y02 

- 

Mole fraction oxygen 

ZB 


Height above the distributor at which 
the cross sectional area is specified, 
ems 



SUBPROGRAM FBC 

AKC 


Overall rate constant for char combustion 
cm/sec 

AKC02 

- 

Overall rate constant for C-C0 2 reaction, 
cm/sec 

AKP 

k‘ 

Defined by Equation (VI. 32) 
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FORTRAN 

Symbol 

Mathematical 

Symbol 

Description 

COB 

- 

Carbon monoxide burnt in each compart- 
ment, gmole/sec 

COVB 

- 

CO produced during volatiles combustion, 
gmole CO/ gmole volatiles 

C02VB 

- 

C 0 2 produced during volatiles combustion, 
gmole C 02 /gmole volatiles 

DCSVE 

d ce 

Surface volume mean diameter of char 
particles in the freeboard, cm 

DVBB 

- 

3 

Volume of each compartment, cm 

DYO 

- 

Increment in 0 2 mole fraction 

ER 

- ' 

Difference between assumed and calculated 
0 2 concentrations, mole, fraction 

ETUBE 

£ tube 

Volume fraction of tube in each compart- 
ment 

EYO 

- 

Tolerance limit for 0 2 concentration 
convergency 

FMO 

F 

MT 

Total molar flow rate of gas in the 
combustor, gmole/sec 

G 

g 

2 

Acceleration due to gravity, cm/sec 

GB 

g B 

Volatiles burning rate in the bubble 
phase, gmole/sec 

GE 

g E 

Volatiles burning rate in the free- 
board, gmole/sec 

NC 

- 

No. of char particles in the freeboard 

PAV 

P 

Average pressure in the combustor, atm 

PH IB 

*B 

Mechanism factor in the freeboard 

PI 

7T 

3.14159265 

RG 

R 

g 

3 

Gas constant, 82.06 atm. cm /gmole. °K 

RVGAS 

- 

Volatiles released during devolatilization 
per unit gm of coal, gmole volatiles/ 
gm coal 





rao 

EpftEIJAN 

Symbol 

Mathemati cal 
Symbol 

Des eription 

T 

T 

Temp.exature, °K 

TAyB 

T 

B 

Mean temperature in the boundary layer 
of the char particles in the free- 
board, °K 

XO.2 

•s 

Oxygen required for partial combustion 
of volatiles, gmole O^/gmole volatile 

yco 

y go 

Mole fraction CO 

YCO.O 

- 

Mole fraction CO in the bottom 
compartment 

YC02 

“ 

Mole fraction C0 2 in the bottom 
compartment 

YH20 

Y 

h 2 o 

Mole fraction 

YD 

Y o 

Mole fraction oxygen 

YOC 

- 

Mole fraction oxygen calculated 

YOO 

- 

Mole fraction oxygen in the bottom 
compartment 

YV 

Y 

V 

Mole fraction volatiles 

YVO 

- 

Mole fraction volatiles in the bottom 
coiipartjnent 



SUBPROGRAM GPB 

A 

- 

Matrix coefficients 

AA 

- 

Matrix coefficients 

AKB 

k c,B 

Overall rate constant for char 
combustion in bubble phase, 
cm/sec 

AKBE 

k be 

Gas exchange coefficient, 1/sec 

AKC02 

- 

Overall rate constant for C-C0 2 
reaction, cm/sec 

AKE 

k c,E 

Overall rate constant for char 
combustion in emulsion phase, 
cm/sec 
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FORTRAN 

Symbol 

Mathematical 

Symbol 

Description 

AKP 

k 

Defined by Equation (VI. 24) 

AMODF 

a 

m 

Defined by Equation (VI. 12) 

B 

- 

Matrix coefficients 

BB 

- 

Mtrix coefficients. 

COB 

- 

Carbon monoxide burnt in each 
compartment, gmol e/sec 

COV 

- 

CO released during devolatilization 
per mole of volatiles released, 
gmole CO/ gmole volatiles 


COVB 


CO produced during volatiles combustion, gmole CO/ 

gmole/ volatiles 

C02V 


C 0 2 released during devolatilization 
per mole of volatiles released, gmole 
CC^/ gmole volatiles 

C02VB 

- 

CO 2 produced during volatiles combustion, 
gmole CO^/gmole volatiles 

DVBB 

- 

3 

Volume of each compartment, cm 

:DYE 

j. 

- 

Increment in oxygen concentration 
in emulsion phase, mole fraction 

EMAX 

- 

Tolerance limit for oxygen concentration 
convergency 

EMF 

£ mf 

Void fraction at minimum fluidization 

EPB 

e B 

Bubble fraction 

EPC 

e 

c 

Cloud fraction including bubble 

FBM 

F 

BM 

Molar flow rate of gas in the bubble 
phase, gmole/sec 

FBMO 

” 

Molar flow Tate of gas in the bubble 
phase in the bottom compartment, 
gmole/sec 

FEM 

F 

EM 

Molar flow rate of ,gas in the 
emulsion phase, gmole/sec 

FEMO 

- 

Molar flow rate of gas in the emulsion 
phase in the bottom compartment, 
gmole/sec 
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' FORTRAN 
Symbol 

Mathematical 

Symbol 

Des cription 

GB 

g B 

Volatiles burning rate in the bubble 
phase, gmole/sec 

GE 

g E 

Volatiles burning rate in the emulsion 
phase, gmole/sec 

PAV. 

P 

Average pressure in the combustor, atm. 

PH IE 


Mechanism factor in the emulsion phase 

RG 

R 

g 

3 

Gas constant, 82.06 atm. cm /gmole. °K 

RVGAS 


Volatiles released during devolatilization 
per unit gm of- coal, gmole volatiles/gm 
coal 

T 

T 

Temperature in the bed, °K 

TAVB 

t b 

Mean temperature in the boundary layer of 
the char particles in the bubble phase, °K 

TAVE 

t e 

Mean temperature in the boundary layer of 
the char particles in the emulsion phase, °K 

VPROD 

- 

Volatiles released in each compartment, 
gmole/sec 

Weight fraction carbon in the bed 

X 

X 

X02 


Oxygen required for partial combustion of 
volatiles, gmole 0 2 /gmole volatiles 

X02C 

V 

Oxygen required for complete combustion of 
volatiles, gmole 02 /gmole volatiles 

YB 

y b 

Mole fraction oxygen in the bubble phase 

YBO 

- 

Mole fraction oxygen in the bubble phase 
in the bottom compartment 

YCOE 

Y 

B,CO 

Mole fraction CO in the emulsion phase 

.YCOEO 

- 

Mole fraction CO in the emulsion phase 
in the bottom compartment 

YC02B 

y b,co 2 

Mole fraction C0 2 in the bubble phase 

YCO2B0 

- 

Mole fraction C0 2 in the bubble phase 
in the bottom compartment 
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YC02E 

Y 

e,co 2 

Mole fraction C0 2 in the emulsion phase 

YCOEO 

— 

Mole fraction C0 2 in the emulsion phase 
in the bottom compartment 

YE 

y e 

Mole fraction oxygen in the emulsion 
phase 

YEC 

- 

Mole fraction oxygen calculated 

YEO 

- 

Mole fraction oxygen in the- bottom 
compartment 

YH20 

v 

Mole fraction l^O 

YVE 

Y E,v 

Mole, fraction volatiles in the emulsion 
phase 

YVEO 


Mole fraction volatiles in the emulsion 
phase in the bottom compartment 



SUBPROGRAM GPHASE 

AKB 

- 

Reaction rate constant in bubble phase 

AKBE 

k be 

Gas exchange coefficient, 1 /sec 

AKE 

- 

Reaction rate constant in emulsion phase 

AM 

a m 

Defined by Equation (vi.12) for N0 X reduction 
reaction; = ( 1 -s^) for SO^ absorption 
reaction ' M ' 

DVBB 

- 

3 

Volume of each compartment, cm 

EPB 

£ B 

Bubble fraction 

EPC 

£ 

C 

Cloud fraction including bubble 

ETUBE 

£ tube 

Volume fraction of tubes in each compartment 

FBM 

F 

BM 

Molar flow rate of gas in the bubble phase, 
gmole/sec 

FBMO 

- 

Molar flow rate of gas in the bubble phase 
in the bottom compartment, gmole/sec 

FEM 

F 

r EM 

Molar flow rate of gas in the emulsion 
phase, gmole/sec 

FEMO 

- 

Molar flow rate of gas in the emulsion 
phase in the bottom compartment, gmole/sec 
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E.ORTBAN 

■Symbol 

GENB 

GENE 

:PAV 

m 

T 

-T? 

TE 

YB.0 


YB1 


YEO 


YE1 


Mathematical Description 

Symbo 1 


P 

R 

g 

T 


SQ~ or NO release rate in the bubble 
phase, gmole/sec 

S0~ or NO release rate in the emulsion 
phase, gmole/sec 

Average pressure in the combustor, atm 

Gas constant, 82.06 atm. cm /gmoie.-°K 

Temperature in the bed, °K 

Mean temperature in the boundary layer 
of the particles, °K 

Mean temperature in the boundary layer 
of the particles, °K 

Gas concentration in the bubble phase 
in the bottom compartment, mole 
fraction 

Gas concentration in the bubble phase, 
mole fraction 

Gas concentration in the emulsion phase 
in the bottom compartment, mole 
fraction 

Gas concentration in the emulsion phase, 
mole fraction 


SUBPROGRAM HAREA 


4TB 

ATI 


DTI D t 


' MTB 


BI ir 


RI 


Bed cross sectional area at height ZB 
abpve the distributor, cm^ 

Bed cross sectional area at height ZI 
above the distributor, cm^ 

Diameter of the combustor at height ZI 
above phe distributor, cm 

Number of locations along the combustor 
where the cross sectional areas are 
specified 

3.14159265 

Radius .of the combustor at height ZI 
above the distributor, cms 
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FORTRAN 

Symbol 

Mathemati cal 
Symbol 

Description 

1— t 
Nl 

- 

Height above the distributor, cms 



SUBPROGRAM HEIGHT 

DBVEFF 

- 

Volume of each compartment excluding 
the tubes , cm 3 

DZAV 

- 

Average compartment size used in 
design calculations, cm 

HEIGHT 

- 

Height above the distributor, cm 

HT 

- 

Height above the distributor, cm 

NTC 

- 

Total number of compartments in the 
combustor using' DZAV + 1 

W 

- 

Volume of bed (excluding tubes) at 
any height, cm 3 



SUBPROGRAM HYDRO 

AHE 


Specific heat transfer area of the tubes, 
cm 2 /cm 3 (DESIGN input) FBC volume 

AHEAV 

a HE 

Specific heat transfer area of the tubes in 
each compartment, cm 2 /cm 3 , FBC volume 

AKBE 

k be 

Gas exchange coefficient, 1/sec 

ALFB 


=e mf U B /U mf 

AND 

n d 

Number of orifices in the distributor 

AT 

A t 

2 

Cross sectional area of the bed, cm 

ATAV 

- 

Average cross sectional area used in 
calculations for each compartment 

BEDVOL . 

- 

3 

Total bed volume, cm 

DBA 

- 

Bubble diameter in each compartment 
assumed, cm 

DBAV 

d b 

Bubble diameter in each compartment, cm 
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' FORTRANi 
Symbol' 

■ 'dbg' 

DBMAX. 

DBO 

DDB‘ 

',’DPSVB 

■f 

Df 

. dtAv 

• DTUBH 

DT-UBEI 

DVBB 
' DVBBFF. 

EFFVOL 

EMAX 

EMF 
- J EPB 
EPC- 

* 

'•E.TUBE' 

FMO 

G 


Mathematical Description 

Symbol 



D, 


d 


o 



8 

C 


£ tube 


F 


MT 


Bubbl'd diameter [calculated) , cm' 

Fictitious- maximum bubble diameter ,, cm 

Bubble ‘diameter at the distributor level, 

' cm 

v 

Increment in bubble size, cm 

Surface volume mean particle diameter 
of additives in the bed, cm 

Diameter of the combustor, cm 

Average diameter used in calculations 
for each compartment 

Diameter of cooling tubes (DESIGN input), 
cm 


Diameter of cooling tubes in each 
compartment, cm 

3 

Volume of each compartment, cm 


Volume of each compartment (excluding 
the tubes), cm 3 


Volume of the bed (excluding the tubes) , 
cm 3 


Tolerance limit for bubble diameter 
convergency 

Void fraction at minimum fluidization 


Bubble fraction 

Cloud fraction including bubble 

Volume fraction of tubes in each 
coup art men t 

j 

Total molar flow rate of gas in the 
combustor, gmole/sec 

2 

Accelaration due to gravity, cm/sec 


g 
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FORTRAN 

Symbol 

H 

HAV 

HB 

HCR 

HFB 

HLF 

IARR 

IARRNG 

ICR 

IFBC 

LAST 

M 

MGAS 

MT 

MTHE 

Ml 

PAV 

PH 

PHI 

PV 

PVI 


Mathemati cal Des cr-iption 

Symbol 


Height above the distributor, cms 
Average height of the compartment, cms 

h Height above the bed surface, cm 

Critical bed height above which there 
is a fixed bed section, cm 

Freeboard height, cm 

Expanded bed height, cm 

Tubes arrangement code (DESIGN input) 

Tubes arrangement code in each 
compartment 

Indicator for critical bed height 

Indicator for fixed bed section 

Indicator for the last compartment 
In the bed 

Number of compartments in the bed 
Molecular weight of gas, gms/gmole 
Total number of compartments in FBC + 1 
No. of locations of cooling tubes 
M + 1 

P Average pressure in the combustor , atms 

P„ Horizontal pitch distance between the 

tubes (DESIGN input) , cm 

Horizontal pitch distance between the 
tubes in each compartment, cm 

P Vertical pitch distance between the tubes 

(DESIGN input), cm 

P v Vertical pitch distance between the tubes 

in each compartment, cm 
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FORTRAN' . 
' Symbol 

RO 

** 

vRHOBED 

^RHOGAS 

' -t 

SUE 

SUMEFF 

su^iv 

Lsolvol 

r 4 

T 

,'TETUBE 

UB 

UBR 

•UBS 

UMF 

UO 

vise 

■VMF' 

X 

YB 

ZHE 

- DPAR 


Mathematical 
Symbo 1 


R, 


g 


T 


U 


B 



y 


X 


Y 


B 


Des crip t ion 

Gas constant, 82.06 atm. cm /gmole 

3 

Density of bed materials, gm/cm 

7 

Density of gas, gm/cm 

Height that would be occupied by 
solids alone in each compartment, cm 

Effective volume of bed (solids .volume 
alone) , enr 

3 

Volume of bed, cm 

Volume of solids in each conpartment 
(including voids) , cm 3 

Temperature in the bed, °K 

Total volume fraction of tubes in 
the bed 

Bubble velocity, cm/sec 

Bubble rising velocity y cm/sec 

Bubble rising velocity under slugging 
conditions, cm/sec 

Minimum fluidization velocity, cm/sec 

Superficial gas velocity, cm/sec 

Viscosity of gas, gm/cm. sec 

Bed volume at minimum fluidization 
(excluding internals) , enr 

Weight fraction carbon in the bed 

Mole fraction oxygen in the emulsion phase 

Locations of cooling tubes, cm 


SUBPROGRAM VEL 

Particle diameter, cm 
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FORTRAN 
Symbol ' 

Mathematical 

Symbol 

Description 

G 

g 

2 

Acceleration due to gravity, cms/sec 

REP 

R e,p 

Particle Reynolds number 

RHOGAS 

P 8 

Density of gas, gm/cm 

RHOS 


3 

Density of solids, gm/ erri 

UM 

U m£ 

Minimum fluidization velocity, 
cm/sec 

UT 

U t 

Terminal velocity of the particle, 
cms/sec 

vise 

y 

Viscosity of gas, gm/cm. sec 



SUBPROGRAM VOLUME 

DVBEFF 

- 

Volume of each compartment excluding 
the tubes, enr 

DZAV 

- 

. Average compartment size used in design 
calculations, cm 

VOLUME 

- 

Volume of bed [excluding tubes) at any 
height ZZ, cm 

ZZ 


Height above the distributor, ems 



